File Coverage

blib/lib/Dancer/Logger/Note.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::Note;
2             our $AUTHORITY = 'cpan:SUKRIA';
3             #ABSTRACT: Test::More note() logging engine for Dancer
4             $Dancer::Logger::Note::VERSION = '1.3514_04'; # TRIAL
5             $Dancer::Logger::Note::VERSION = '1.351404';
6 1     1   663 use strict;
  1         2  
  1         28  
7 1     1   4 use warnings;
  1         2  
  1         27  
8 1     1   4 use base 'Dancer::Logger::Abstract';
  1         1  
  1         415  
9              
10             sub init {
11 1     1 1 2 my $self = shift;
12 1         6 $self->SUPER::init(@_);
13 1         8 require Test::More;
14             }
15              
16             sub _log {
17 1     1   701 my ($self, $level, $message) = @_;
18              
19 1         4 Test::More::note(
20             $self->format_message( $level => $message )
21             );
22             }
23              
24             1;
25              
26             __END__