File Coverage

examples/clan/lib/My/Project/Logger.pm
Criterion Covered Total %
statement 18 18 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 25 28 89.2


line stmt bran cond sub pod time code
1 1     1   18 use 5.006; #our
  1         2  
2 1     1   3 use strict;
  1         1  
  1         14  
3 1     1   3 use warnings;
  1         1  
  1         35  
4              
5             package My::Project::Logger;
6              
7             our $VERSION = '0.001000';
8              
9 1     1   361 use parent 'Log::Contextual';
  1         243  
  1         3  
10              
11             sub arg_default_logger {
12 2 50   2 0 1810 return $_[1] if $_[1];
13 2         389 require Log::Contextual::WarnLogger::Fancy;
14 2         4 my $caller = caller(3);
15 2         2 my $package = uc($caller);
16 2         6 $package =~ s/::/_/g;
17 2         8 return Log::Contextual::WarnLogger::Fancy->new(
18             env_prefix => $package,
19             group_env_prefix => 'MY_PROJECT',
20             label => $caller,
21             default_upto => 'warn',
22             );
23             }
24              
25 2     2 0 33070 sub default_import { qw( :dlog :log ) }
26              
27             1;