File Coverage

blib/lib/Dancer/Logger/LogHandler.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	1	2	50.0
condition	6	6	100.0
subroutine	10	10	100.0
pod	1	1	100.0
total	52	53	98.1

package Dancer::Logger::LogHandler;

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

use Log::Handler;
use Dancer::Config 'setting';

use vars '$VERSION';
$VERSION = '0.01';

my $_logger;

sub _config {
    my $conf = setting('log_handler');
    $conf ? return $conf : return {
        screen => {
            log_to   => "STDERR",
            maxlevel => "debug",
            minlevel => "error"
        }
    };
}

sub init {
    my $self = shift;
    my $settings = _config();
    $_logger = Log::Handler->new();
    map { $_logger->add($_ => $settings->{$_}) } keys %$settings;
}

sub _log {
    my ($self, $level, $message) = @_;
    $_logger->$level(_format($message));
}

sub _format {
    my $message = shift;
    my ($package, $file, $line) = caller(4);
    $package ||= '-';
    $file    ||= '-';
    $line    ||= '-';

    chomp $message;
    return "$message in $file l. $line\n";
}

1;

__END__