File Coverage

blib/lib/Log/Any/Adapter/Null.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 25 25 100.0


line stmt bran cond sub pod time code
1 12     12   189065 use 5.008001;
  12         40  
2 12     12   78 use strict;
  12         17  
  12         307  
3 12     12   44 use warnings;
  12         22  
  12         1034  
4              
5             package Log::Any::Adapter::Null;
6              
7             # ABSTRACT: Discards all log messages
8             our $VERSION = '1.719';
9              
10 12     12   4264 use Log::Any::Adapter::Base;
  12         32  
  12         609  
11             our @ISA = qw/Log::Any::Adapter::Base/;
12              
13 12     12   1535 use Log::Any::Adapter::Util ();
  12         21  
  12         674  
14              
15             # All methods are no-ops and return false
16              
17             foreach my $method (Log::Any::Adapter::Util::logging_and_detection_methods()) {
18 12     12   58 no strict 'refs';
  12         24  
  12         1020  
19 117     117   574 *{$method} = sub { return '' }; # false
20             }
21              
22             1;
23              
24             __END__