21 lines
463 B
Perl
21 lines
463 B
Perl
package Lemonldap::NG::Portal::Register::Custom;
|
|
|
|
use strict;
|
|
|
|
extends 'Lemonldap::NG::Portal::Register::Base';
|
|
|
|
sub new {
|
|
my ( $class, $self ) = @_;
|
|
unless ( $self->{conf}->{customRegister} ) {
|
|
die 'Custom register module not defined';
|
|
}
|
|
|
|
my $res = $self->{p}->loadModule( $self->{conf}->{customRegister} );
|
|
unless ($res) {
|
|
die 'Unable to load register module ' . $self->{conf}->{customRegister};
|
|
}
|
|
return $res;
|
|
}
|
|
|
|
1;
|