File Coverage

blib/lib/Log/ger/Output/Null.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             package Log::ger::Output::Null;
2              
3             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
4             our $DATE = '2021-01-31'; # DATE
5             our $DIST = 'Log-ger'; # DIST
6             our $VERSION = '0.038'; # VERSION
7              
8             sub meta { +{
9 1     1 0 3 v => 2,
10             } }
11              
12             sub get_hooks {
13             return {
14             create_outputter => [
15             __PACKAGE__, # key
16             50, # priority
17             sub { # hook
18 6     6   16 my %hook_args = @_; # see Log::ger::Manual::Internals/"Arguments passed to hook"
19              
20 6         11 $Log::ger::_outputter_is_null = 1;
21 6     3   18 my $outputter = sub {0};
  3     3   777  
        3      
22 6         18 [$outputter];
23 1     1 0 9 }],
24             };
25             }
26              
27             1;
28             # ABSTRACT: Null output
29              
30             __END__