Custom.pm 447 Bytes
Newer Older
1 2 3 4 5 6 7
package Lemonldap::NG::Portal::Password::Custom;

use strict;

sub new {
    my ( $class, $self ) = @_;
    unless ( $self->{conf}->{customPassword} ) {
Christophe Maudoux's avatar
Christophe Maudoux committed
8
        die 'Custom Password module not defined';
9
    }
Christophe Maudoux's avatar
Christophe Maudoux committed
10 11 12 13 14

    eval $self->{p}->loadModule( $self->{conf}->{customPassword} );
    ($@)
      ? return $self->{p}->loadModule( $self->{conf}->{customPassword} )
      : die 'Unable to load Password module ' . $self->{conf}->{customPassword};
15 16 17
}

1;