File Coverage

blib/lib/BioX/Workflow/Command/Utils/Log.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package BioX::Workflow::Command::Utils::Log;
2              
3 2     2   1062 use Moose::Role;
  2         5  
  2         16  
4 2     2   9075 use namespace::autoclean;
  2         4  
  2         15  
5              
6 2     2   1383 use Log::Log4perl qw(:easy);
  2         67222  
  2         8  
7 2     2   2564 use DateTime;
  2         702406  
  2         210  
8              
9             has 'app_log' => (
10             is => 'rw',
11             default => sub {
12             my $self = shift;
13             Log::Log4perl->init( \ <<'EOT');
14             log4perl.category = DEBUG, Screen
15             log4perl.appender.Screen = \
16             Log::Log4perl::Appender::ScreenColoredLevels
17             log4perl.appender.Screen.layout = \
18             Log::Log4perl::Layout::PatternLayout
19             log4perl.appender.Screen.layout.ConversionPattern = \
20             [%d] %m %n
21             EOT
22             return get_logger();
23             },
24             lazy => 1,
25             );
26              
27             1;