File Coverage

blib/lib/Log/Any/Adapter/FileScreenBase.pm
Criterion Covered Total %
statement 15 16 93.7
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 23 86.9


line stmt bran cond sub pod time code
1             package Log::Any::Adapter::FileScreenBase;
2             {
3             $Log::Any::Adapter::FileScreenBase::VERSION = '0.11';
4             }
5 2     2   14 use Log::Any::Adapter::Util qw(make_method);
  2         4  
  2         100  
6 2     2   10 use strict;
  2         4  
  2         52  
7 2     2   11 use warnings;
  2         3  
  2         62  
8 2     2   11 use base qw(Log::Any::Adapter::Base);
  2         3  
  2         1172  
9              
10             sub make_logging_methods {
11 4     4 0 11 my ( $class, $code ) = @_;
12 4         25 foreach my $method ( Log::Any->logging_methods() ) {
13 36         104 make_method( $method, $code, $class );
14             }
15             }
16              
17             foreach my $method ( Log::Any->detection_methods() ) {
18 0     0     make_method( $method, sub { 1 } );
19             }
20              
21             1;