Custom.pm 412 Bytes
Newer Older
1 2 3 4 5 6 7 8 9
package Lemonldap::NG::Portal::Register::Custom;

use strict;

sub new {
    my ( $class, $self ) = @_;
    unless ( $self->{conf}->{customRegister} ) {
        die 'Custom register module not defined';
    }
Xavier Guimard's avatar
Xavier Guimard committed
10

11 12 13 14 15 16
    my $res = $self->{p}->loadModule( $self->{conf}->{customRegister} );
    unless($res) {
        die 'Unable to load register module ' . $self->{conf}->{customRegister};
    }
    return $res;
}
17

18
1;