File Coverage

blib/lib/Web/AssetLib/Role/Logger.pm

Criterion	Covered	Total	%
statement	31	38	81.5
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	38	47	80.8

package Web::AssetLib::Role::Logger;

use Moose::Role;
use Data::Dump 1.16;
use Data::Dump::Filtered qw/dump_filtered/;

use v5.14;
no if $] >= 5.018, warnings => "experimental";

with 'MooseX::Log::Log4perl';

my $dumpFilterCallback = sub {
    my ( $ctx, $oref ) = @_;

    return unless $ctx->class;

    for ( $ctx->class ) {
        when ("DateTime") {
            return { dump => qq($oref) };
        }
    }
};

sub Log::Log4perl::Logger::dump {
    my ( $self, $message, $argsref, $loglevel ) = @_;

    $Log::Log4perl::caller_depth += 1;

    local $Data::Dumper::Terse = 1;

    my $coderef = sub {
        return $message . dump_filtered( $argsref, $dumpFilterCallback );
    };
    for ($loglevel) {
        when (undef)      { $self->trace($coderef); }
        when (/^debug$/i) { $self->debug($coderef); }
        when (/^info$/i)  { $self->info($coderef); }
        when (/^warn$/i)  { $self->warn($coderef); }
        when (/^error$/i) { $self->error($coderef); }
        when (/^fatal$/i) { $self->fatal($coderef); }
        default           { $self->trace($coderef); }
    }

    $Log::Log4perl::caller_depth -= 1;
}

no Moose::Role;

1;
__END__