File Coverage

blib/lib/Log/Any/Adapter/MojoLog.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	1	0.0
total	28	32	87.5

package Log::Any::Adapter::MojoLog;

use strict;
use warnings;

our $VERSION = '0.05';
$VERSION = eval $VERSION;

use Log::Any::Adapter::Util qw(make_method);
use base qw(Log::Any::Adapter::Base);

use Mojo::Log;

sub init { $_[0]->{logger} ||= Mojo::Log->new }

# Create logging methods
#
foreach my $method ( Log::Any->logging_methods ) {
    my $mojo_method = $method;

    # Map log levels down to Mojo::Log levels where necessary
    #
    for ($mojo_method) {
        s/notice/info/;
        s/warning/warn/;
        s/critical|alert|emergency/fatal/;
    }

    make_method(
        $method,
        sub { shift->{logger}->$mojo_method(@_) }
    );
}

# Create detection methods: is_debug, is_info, etc.
#

foreach my $method ( Log::Any->detection_methods ) {
    my $level = $method;
    $level =~ s/^is_//;

    # Map log levels down to Mojo::Log levels where necessary
    #
    for ($level) {
        s/notice/info/;
        s/warning/warn/;
        s/critical|alert|emergency/fatal/;
    }

    make_method(
        $method,
        sub { $_[0]->{logger}->is_level($level ? $level : ()) }
    );
}

1;

__END__