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   73 use warnings;
  13         25  
  13         391  
6 13     13   63 use strict;
  13         27  
  13         408  
7              
8             package Log::Report::Dispatcher::Perl;
9 13     13   68 use vars '$VERSION';
  13         24  
  13         508  
10             $VERSION = '1.21';
11              
12 13     13   68 use base 'Log::Report::Dispatcher';
  13         25  
  13         774  
13              
14 13     13   68 use Log::Report 'log-report';
  13         23  
  13         61  
15 13     13   5264 use IO::File;
  13         73819  
  13         1857  
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;