File Coverage

blib/lib/MojoX/Log/Log4perl/Tiny.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	4	4	100.0
pod	0	1	0.0
total	24	26	92.3

package MojoX::Log::Log4perl::Tiny;
use Mojo::Base -base;

our $VERSION = "0.01";

has 'logger';
has level            => 'debug';
has max_history_size => 5;
has history          => sub { [] };
has format           => sub {
    sub {
        '[' . localtime(shift) . '] [' . shift() . '] ' . join "\n", @_, '';
    };
};

my %LEVEL = (
    debug => 1,
    info  => 2,
    warn  => 3,
    error => 4,
    fatal => 5,
);

{
    no strict 'refs';
    for my $level (keys %LEVEL) {
        *$level = sub {
            my $self = shift;
            return if not $self->is_level($level);

            my $history = $self->history;
            my $max     = $self->max_history_size;

            push @$history, [ time, $level, @_ ];
            shift @$history while @$history > $max;

            local $Log::Log4perl::caller_depth = 1;
            $self->logger->$level(@_);
        };
    }
}

sub is_level {
    my ($self, $level) = @_;
    $LEVEL{$level} >= $LEVEL{ $ENV{MOJO_LOG_LEVEL} || $self->level };
}

1;
__END__