File Coverage

blib/lib/CPAN/MirrorMerger/Logger/Stderr.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 20 80.0


line stmt bran cond sub pod time code
1             package CPAN::MirrorMerger::Logger::Stderr;
2 1     1   5610 use strict;
  1         3  
  1         33  
3 1     1   6 use warnings;
  1         2  
  1         40  
4 1     1   6 use feature qw/say/;
  1         2  
  1         82  
5              
6 1     1   6 use parent qw/CPAN::MirrorMerger::Logger/;
  1         1  
  1         9  
7              
8             sub write_log {
9 0     0 0   my ($self, $msg) = @_;
10 0           say STDERR "$msg";
11             }
12              
13             1;
14             __END__