File Coverage

blib/lib/Log/Report/Dispatcher/Perl.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 25 28 89.2


line stmt bran cond sub pod time code
1             # Copyrights 2007-2017 by [Mark Overmeer].
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 2.02.
5 13     13   70 use warnings;
  13         20  
  13         374  
6 13     13   56 use strict;
  13         21  
  13         299  
7              
8             package Log::Report::Dispatcher::Perl;
9 13     13   58 use vars '$VERSION';
  13         23  
  13         516  
10             $VERSION = '1.22';
11              
12 13     13   66 use base 'Log::Report::Dispatcher';
  13         21  
  13         1013  
13              
14 13     13   68 use Log::Report 'log-report';
  13         16  
  13         58  
15 13     13   3359 use IO::File;
  13         64434  
  13         1858  
16              
17             my $singleton = 0; # can be only one (per thread)
18              
19              
20             sub log($$$$)
21 0     0 1   { my ($self, $opts, $reason, $message, $domain) = @_;
22 0           print STDERR $self->translate($opts, $reason, $message);
23             }
24              
25             1;