File Coverage

blib/lib/Dancer/Logger/Diag.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Dancer::Logger::Diag;
2             our $AUTHORITY = 'cpan:SUKRIA';
3             #ABSTRACT: Test::More diag() logging engine for Dancer
4             $Dancer::Logger::Diag::VERSION = '1.3520';
5 1     1   711 use strict;
  1         2  
  1         29  
6 1     1   5 use warnings;
  1         2  
  1         25  
7 1     1   4 use base 'Dancer::Logger::Abstract';
  1         2  
  1         447  
8              
9             sub init {
10 1     1 1 2 my $self = shift;
11 1         8 $self->SUPER::init(@_);
12 1         6 require Test::More;
13             }
14              
15             sub _log {
16 1     1   831 my ($self, $level, $message) = @_;
17              
18 1         4 Test::More::diag(
19             $self->format_message( $level => $message )
20             );
21             }
22              
23             1;
24              
25             __END__