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   183726 use 5.008001;
  12         37  
2 12     12   51 use strict;
  12         16  
  12         279  
3 12     12   36 use warnings;
  12         15  
  12         894  
4              
5             package Log::Any::Adapter::Null;
6              
7             # ABSTRACT: Discards all log messages
8             our $VERSION = '1.718';
9              
10 12     12   3897 use Log::Any::Adapter::Base;
  12         27  
  12         1236  
11             our @ISA = qw/Log::Any::Adapter::Base/;
12              
13 12     12   60 use Log::Any::Adapter::Util ();
  12         15  
  12         495  
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   44 no strict 'refs';
  12         22  
  12         829  
19 117     117   538 *{$method} = sub { return '' }; # false
20             }
21              
22             1;
23              
24             __END__