27 lines
521 B
Perl
27 lines
521 B
Perl
|
package Lemonldap::NG::Common::Logger::_Duplicate;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
our $VERSION = '2.0.6';
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my $self = bless {}, shift;
|
||
|
|
my ( $conf, %args ) = @_;
|
||
|
|
eval "require $args{logger}";
|
||
|
|
die $@ if ($@);
|
||
|
|
$self->{logger} = $args{logger}->new(@_);
|
||
|
|
$self->{dup} = $args{dup} or die 'Missing dup';
|
||
|
|
return $self;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub AUTOLOAD {
|
||
|
|
my $self = shift;
|
||
|
|
no strict;
|
||
|
|
$AUTOLOAD =~ s/.*:://;
|
||
|
|
$self->{logger}->$AUTOLOAD(@_);
|
||
|
|
$_[0] = "[$AUTOLOAD] $_[0]";
|
||
|
|
$self->{dup}->debug(@_);
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|