File Coverage

blib/lib/Log/ger/Like/Log4perl.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	24	25	96.0

package Log::ger::Like::Log4perl;

our $DATE = '2017-07-12'; # DATE
our $VERSION = '0.001'; # VERSION

# IFUNBUILT
# use strict 'subs', 'vars';
# use warnings;
# END IFUNBUILT

sub get_logger {
    my ($package, $category) = @_;

    my $caller = caller(0);
    require Log::ger;
    require Log::ger::Plugin;
    my $log = Log::ger->get_logger(category => $category);
    Log::ger::Plugin->set({
        name       => 'Log4perl',
        target     => 'object',
        target_arg => $log,
    });
    $log;
}

sub import {
    my $pkg = shift;

    # export $TRACE, ...
    my $caller = caller(0);
    {
        no warnings 'once';
        for (keys %Log::ger::Levels) {
            *{"$caller\::".uc($_)} = \$Log::ger::Levels{$_};
        }
    }

    require Log::ger;
    require Log::ger::Plugin;
    Log::ger::Plugin->set({
        name       => 'Log4perl',
        target     => 'package',
        target_arg => $caller,
    });
    Log::ger::add_target(package => $caller, {});
    Log::ger::init_target(package => $caller, {});
}

1;
# ABSTRACT: Mimic Log::Log4perl

__END__