File Coverage

blib/lib/Dancer/Logger/Capture.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Dancer::Logger::Capture;
2             our $AUTHORITY = 'cpan:SUKRIA';
3             # ABSTRACT: Capture dancer logs
4             $Dancer::Logger::Capture::VERSION = '1.3520';
5 86     86   39670 use strict;
  86         282  
  86         2695  
6 86     86   572 use warnings;
  86         246  
  86         2519  
7              
8              
9              
10 86     86   532 use base "Dancer::Logger::Abstract";
  86         255  
  86         40099  
11              
12 86     86   39112 use Dancer::Logger::Capture::Trap;
  86         318  
  86         8189  
13             my $Trap = Dancer::Logger::Capture::Trap->new;
14              
15             sub _log {
16 39     39   101 my($self, $level, $message) = @_;
17              
18 39         183 $Trap->store( $level => $message );
19 39         98 return;
20             }
21              
22             sub trap {
23 3     3 1 16 return $Trap;
24             }
25              
26              
27              
28             1;
29              
30             __END__