File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	3	3	100.0
pod	0	1	0.0
total	22	24	91.6

package Log::ger::Like::LogAny;

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

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

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

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

sub import {
    my $package = shift;

    if (@_ && $_[0] eq '$log') {
        shift;
        my $caller = caller(0);
        my $log = __PACKAGE__->get_logger(category => $caller, @_);
        *{"$caller\::log"} = \$log;
    }
}

package
    Log::Any; # hide from PAUSE

unless (defined(&{"get_logger"})) {
    sub get_logger { goto &Log::ger::Like::LogAny::get_logger }
}

1;
# ABSTRACT: Log like Log::Any

__END__