File Coverage

lib/Dancer/Logger/LogAny.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	6	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	1	1	100.0
total	42	42	100.0

package Dancer::Logger::LogAny;
# ABSTRACT: Use Log::Any to control logging from your Dancer app
$Dancer::Logger::LogAny::VERSION = '0.003';
use strict;
use warnings;
use Dancer::Config 'setting';
use Log::Any;
use parent qw{Dancer::Logger::Abstract};

my $_logger;


sub init {
    my ($self) = @_;
    my $settings = setting ('LogAny') || {};
    if ($settings->{logger}) {
        require Log::Any::Adapter;
        Log::Any::Adapter->set (@{$settings->{logger}});
    }
    my %param = exists $settings->{category}
        ? (category => $settings->{category})
        : ();
    $_logger = Log::Any->get_logger (%param);
}

sub _log {
    my ($self, $level, $message) = @_;
    $level = 'info' if $level eq 'core';
    $_logger->$level ($message);
}

1;

__END__