25 lines
428 B
Perl
25 lines
428 B
Perl
package Lemonldap::NG::Common::Module;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
|
|
our $VERSION = '2.0.0';
|
|
|
|
# Object that provides lmLog and error methods (typically PSGI object)
|
|
has p => ( is => 'rw', weak_ref => 1 );
|
|
|
|
# Lemonldap::NG configuration hash ref
|
|
has conf => ( is => 'rw', weak_ref => 1 );
|
|
|
|
sub lmLog {
|
|
my $self = shift;
|
|
return $self->p->lmLog(@_);
|
|
}
|
|
|
|
sub error {
|
|
my $self = shift;
|
|
return $self->p->error(@_);
|
|
}
|
|
|
|
1;
|