File Coverage

blib/lib/Net/FreeIPA/DummyLogger.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition 0 3 0.0
subroutine 4 6 66.6
pod 1 1 100.0
total 17 27 62.9


line stmt bran cond sub pod time code
1             package Net::FreeIPA::DummyLogger;
2             $Net::FreeIPA::DummyLogger::VERSION = '3.0.1';
3 6     6   19 use strict;
  6         9  
  6         174  
4 6     6   16 use warnings;
  6         7  
  6         327  
5              
6             =head1 NAME
7              
8             Net::FreeIPA::DummyLogger provides dummy logger with log4perl interface
9              
10             =head2 Public methods
11              
12             =over
13              
14             =item new
15              
16             =cut
17              
18             sub new
19             {
20 0     0 1   my $this = shift;
21 0   0       my $class = ref($this) || $this;
22 0           my $self = {}; # here, it gives a reference on a hash
23 0           bless $self, $class;
24              
25 0           return $self;
26             };
27              
28             # Mock basic methods of Log4Perl getLogger instance
29 6     6   18 no strict 'refs'; ## no critic
  6         4  
  6         280  
30             foreach my $i (qw(error warn info debug)) {
31       0     *{$i} = sub {}
32             }
33 6     6   18 use strict 'refs';
  6         5  
  6         140  
34              
35             =pod
36              
37             =back
38              
39             =cut
40              
41             1;