File Coverage

lib/Dancer/Logger/LogAny.pm

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

package Dancer::Logger::LogAny;
{
  $Dancer::Logger::LogAny::VERSION = '0.002';
}
# ABSTRACT: Use Log::Any to control logging from your Dancer app

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 $category = $settings->{category} || '';
    $_logger = Log::Any->get_logger (category => $category);
}

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

1;

__END__