File Coverage

blib/lib/Dancer/Logger/Log4perl.pm

Criterion	Covered	Total	%
statement	18	41	43.9
branch	0	20	0.0
condition			n/a
subroutine	6	8	75.0
pod	1	1	100.0
total	25	70	35.7

package Dancer::Logger::Log4perl;

#
# ABSTRACT: Dancer adapter for Log::Log4perl
#

use strict;
use warnings;
use Carp;
use base 'Dancer::Logger::Abstract';

use Dancer::Config       ();
use Dancer::ModuleLoader ();

our $VERSION = '0.9.0';

my $default_config = <<'END_OF_CONFIG';
log4perl.logger = ALL, Screen
log4perl.appender.Screen = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.stderr = 1
log4perl.appender.Screen.stdout = 0
log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Screen.layout.ConversionPattern = [%d] [%-5p] %m%n
END_OF_CONFIG

sub init {
    my $self = shift;
    $self->SUPER::init(@_);

    my $conf  = Dancer::Config::setting('log4perl');
    my $class = $conf->{tiny} ? 'Log::Log4perl::Tiny' : 'Log::Log4perl';
    $self->{class} = $class;

    unless ( Dancer::ModuleLoader->require($class) ) {
        carp "unable to load $class";
        return;
    }

    if ( ! $conf->{no_init} ) {
        if ( $conf->{tiny} ) {
            my $logger = $class->get_logger();
            for my $accessor (qw( fh level layout format )) {
                if ( exists $conf->{$accessor} ) {
                    $logger->$accessor($conf->{$accessor});
                }
            }
        } else {
            my $l4p_conf =
                  exists $conf->{config_file} ? $conf->{config_file}
                : exists $conf->{config}      ? \$conf->{config}
                :                               \$default_config;
            Log::Log4perl::init($l4p_conf);
        }
    }

    $self->{logger} = $class->get_logger();
}

sub _log {
    my ($self, $level, $message) = @_;

    $level = 'warn' if $level eq 'warning';
    $level = 'trace' if $level eq 'core';
    my $format_level = $level;

    # Adjust the caller level since we've introduced additional levels. Does not apply to Tiny module.
    local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 3 if $self->{class} eq 'Log::Log4perl';

    $self->{logger}->$level($self->format_message($format_level => $message));
}

1;
__END__