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.3521';
5 86     86   39674 use strict;
  86         272  
  86         2634  
6 86     86   576 use warnings;
  86         239  
  86         2412  
7              
8              
9              
10 86     86   560 use base "Dancer::Logger::Abstract";
  86         305  
  86         39846  
11              
12 86     86   39419 use Dancer::Logger::Capture::Trap;
  86         339  
  86         8207  
13             my $Trap = Dancer::Logger::Capture::Trap->new;
14              
15             sub _log {
16 39     39   107 my($self, $level, $message) = @_;
17              
18 39         190 $Trap->store( $level => $message );
19 39         109 return;
20             }
21              
22             sub trap {
23 3     3 1 13 return $Trap;
24             }
25              
26              
27              
28             1;
29              
30             __END__