File Coverage

blib/lib/Log/Any/Adapter.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	32	32	100.0

package Log::Any::Adapter;
{
  $Log::Any::Adapter::VERSION = '0.11';
}
use 5.006;
use Log::Any;
use Log::Any::Manager;
use Log::Any::Adapter::Util qw(make_method);
use strict;
use warnings;

# Checked by Log::Any to see if get_logger should be forwarded here
#
our $Initialized = 1;

my $manager = Log::Any::Manager->new();

foreach my $method (qw(get_logger set remove)) {
    make_method(
        $method,
        sub {
            my $class = shift;
            return $manager->$method(@_);
        }
    );
}

sub import {
    my $pkg = shift;
    $pkg->set(@_) if (@_);
}

1;

__END__