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   183 use 5.008001;
  10         36  
2 10     10   51 use strict;
  10         24  
  10         283  
3 10     10   77 use warnings;
  10         21  
  10         608  
4              
5             package Log::Any::Adapter::Null;
6              
7             # ABSTRACT: Discards all log messages
8             our $VERSION = '1.717';
9              
10 10     10   3813 use Log::Any::Adapter::Base;
  10         23  
  10         435  
11             our @ISA = qw/Log::Any::Adapter::Base/;
12              
13 10     10   79 use Log::Any::Adapter::Util ();
  10         18  
  10         458  
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   67 no strict 'refs';
  10         25  
  10         915  
19 113     113   414 *{$method} = sub { return '' }; # false
20             }
21              
22             1;
23              
24             __END__