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.3514_04'; # TRIAL
5             $Dancer::Logger::Capture::VERSION = '1.351404';
6 87     87   34554 use strict;
  87         188  
  87         2279  
7 87     87   417 use warnings;
  87         165  
  87         2072  
8              
9              
10              
11 87     87   419 use base "Dancer::Logger::Abstract";
  87         215  
  87         32860  
12              
13 87     87   35199 use Dancer::Logger::Capture::Trap;
  87         219  
  87         6731  
14             my $Trap = Dancer::Logger::Capture::Trap->new;
15              
16             sub _log {
17 39     39   116 my($self, $level, $message) = @_;
18              
19 39         166 $Trap->store( $level => $message );
20 39         86 return;
21             }
22              
23             sub trap {
24 3     3 1 10 return $Trap;
25             }
26              
27              
28              
29             1;
30              
31             __END__