23 lines
509 B
Perl
23 lines
509 B
Perl
package Lemonldap::NG::Common::Module;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
|
|
our $VERSION = '2.0.0';
|
|
|
|
# Object that provides loggers 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 );
|
|
|
|
has logger => ( is => 'ro', default => sub { $_[0]->{p}->logger } );
|
|
has userLogger => ( is => 'ro', default => sub { $_[0]->{p}->userLogger } );
|
|
|
|
sub error {
|
|
my $self = shift;
|
|
return $self->p->error(@_);
|
|
}
|
|
|
|
1;
|