File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	25	26	96.1

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

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-11'; # DATE
our $DIST = 'Log-ger-Like-Log4perl'; # DIST
our $VERSION = '0.003'; # 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_type => 'object',
        target_name => $log,
    });
    Log::ger::Plugin->set({
        name        => 'Log4perl_Multi',
        target_type => 'object',
        target_name => $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_type => 'package',
        target_name => $caller,
    });
    Log::ger::add_target(package => $caller, {});
    Log::ger::init_target(package => $caller, {});
}

1;
# ABSTRACT: Mimic Log::Log4perl

__END__