File Coverage

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

Criterion	Covered	Total	%
statement	33	33	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	9	9	100.0
pod	0	1	0.0
total	45	47	95.7

package Kelp::Module::Logger::Log4perl;
our $VERSION = "0.002";
$VERSION = eval $VERSION;
use strict;
use warnings;

use Kelp::Base 'Kelp::Module::Logger';
use Log::Log4perl;
use Log::Log4perl::Level;
use Data::Dumper;

attr 'category' => '';

use constant ({
    NOTICE    => $INFO + 1,
    CRITICAL  => $ERROR + 1,
    ALERT     => $FATAL + 1,
    EMERGENCY => $OFF - 1
});

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

    Log::Log4perl::Level::add_priority('NOTICE',    NOTICE,     2, 2);
    Log::Log4perl::Level::add_priority('CRITICAL',  CRITICAL,   0, 5);
    Log::Log4perl::Level::add_priority('ALERT',     ALERT,     -1, 6);
    Log::Log4perl::Level::add_priority('EMERGENCY', EMERGENCY, -1, 7);
    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,

        notice    => NOTICE,
        critical  => CRITICAL,
        alert     => ALERT,
        emergency => EMERGENCY,
    );

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

1;

__END__