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   218 use 5.008001;
  10         37  
2 10     10   52 use strict;
  10         27  
  10         337  
3 10     10   71 use warnings;
  10         17  
  10         700  
4              
5             package Log::Any::Adapter::Null;
6              
7             # ABSTRACT: Discards all log messages
8             our $VERSION = '1.716';
9              
10 10     10   3640 use Log::Any::Adapter::Base;
  10         22  
  10         407  
11             our @ISA = qw/Log::Any::Adapter::Base/;
12              
13 10     10   76 use Log::Any::Adapter::Util ();
  10         24  
  10         443  
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         21  
  10         767  
19 113     113   425 *{$method} = sub { return '' }; # false
20             }
21              
22             1;
23              
24             __END__