File Coverage

blib/lib/AnyEvent/Task/Logger.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 5 60.0
pod 0 1 0.0
total 12 20 60.0


line stmt bran cond sub pod time code
1             package AnyEvent::Task::Logger;
2              
3 2     2   790 use common::sense;
  2         2  
  2         8  
4              
5 2     2   976 use Log::Defer;
  2         4782  
  2         82  
6              
7              
8             require Exporter;
9 2     2   8 use base 'Exporter';
  2         4  
  2         340  
10             our @EXPORT = qw(logger);
11              
12              
13             our $log_defer_object;
14              
15              
16             sub logger {
17 0 0   0 0   if (!$log_defer_object) {
18 0     0     $log_defer_object = Log::Defer->new(sub {});
19             }
20              
21 0           return $log_defer_object;
22             }
23              
24              
25              
26              
27             1;