File Coverage

blib/lib/Kelp/Module/Logger/Log4perl.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	25	27	92.5

package Kelp::Module::Logger::Log4perl;
our $VERSION = "0.001";
$VERSION = eval $VERSION;

use Kelp::Base 'Kelp::Module::Logger';
use Log::Log4perl qw( :levels );
use Data::Dumper;

attr 'category' => '';

sub _logger {
    my ( $self, %args ) = @_;

    Log::Log4perl->init($args{conf});

    return Log::Log4perl->get_logger($args{category} || '');
}

# Override  because Log4perl has own configurable layouts.
sub message {
    my ($self, $level, @messages) = @_;

    my %LEVELS_map = (
        'trace'  => $TRACE,
        'debug'  => $DEBUG,
        'info'   => $INFO,
        'warn'   => $WARN,
        'error'  => $ERROR,
        'fatal'  => $FATAL,
        'always' => $OFF,
    );

    for (@messages) {
        my $message = ref($_) ? Dumper($_) : $_;
        $self->{logger}->log( $LEVELS_map{$level}, $message );
    }
}

1;

__END__