File Coverage

blib/lib/Log/Contextual/Easy/Package.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	21	25	84.0

package Log::Contextual::Easy::Package;
$Log::Contextual::Easy::Package::VERSION = '0.008000';
# ABSTRACT: Import all logging methods with WarnLogger as default package logger

use strict;
use warnings;

use base 'Log::Contextual';

sub arg_package_logger {
   if ($_[1]) {
      return $_[1];
   } else {
      require Log::Contextual::WarnLogger;
      my $package = uc(caller(3));
      $package =~ s/::/_/g;
      return Log::Contextual::WarnLogger->new({env_prefix => $package});
   }
}

sub default_import { qw(:dlog :log ) }

1;

__END__