File Coverage

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

Criterion	Covered	Total	%
statement	16	17	94.1
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	23	27	85.1

package Log::Contextual::Easy::Default;
use strict;
use warnings;

our $VERSION = '0.009001';

use Log::Contextual ();
BEGIN { our @ISA = qw(Log::Contextual) }

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

sub default_import { qw(:dlog :log ) }

1;

__END__