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 10     10   191 use 5.008001;
  10         33  
2 10     10   56 use strict;
  10         27  
  10         258  
3 10     10   48 use warnings;
  10         16  
  10         588  
4              
5             package Log::Any::Adapter::Null;
6              
7             # ABSTRACT: Discards all log messages
8             our $VERSION = '1.715';
9              
10 10     10   3544 use Log::Any::Adapter::Base;
  10         24  
  10         404  
11             our @ISA = qw/Log::Any::Adapter::Base/;
12              
13 10     10   72 use Log::Any::Adapter::Util ();
  10         20  
  10         435  
14              
15             # All methods are no-ops and return false
16              
17             foreach my $method (Log::Any::Adapter::Util::logging_and_detection_methods()) {
18 10     10   63 no strict 'refs';
  10         34  
  10         858  
19 113     113   424 *{$method} = sub { return '' }; # false
20             }
21              
22             1;
23              
24             __END__