File Coverage

lib/Log/Dump/Functions.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Log::Dump::Functions;
2              
3 2     2   71063 use strict;
  2         4  
  2         77  
4 2     2   10 use warnings;
  2         4  
  2         53  
5 2     2   1149 use Log::Dump;
  2         5  
  2         14  
6 2     2   137 use Sub::Install 'install_sub';
  2         5  
  2         9  
7              
8             our @CARP_NOT;
9              
10             sub import {
11 2     2   18 my $class = shift;
12 2         4 my $caller = caller;
13              
14 2         7 my @methods = qw( logger log logfile logfilter logcolor logtime );
15 2         6 foreach my $method (@methods) {
16             install_sub({
17             as => $method,
18             into => $caller,
19 3     3   6398 code => sub { $class->$method(@_) },
20 12         483 });
21             }
22             }
23              
24             1;
25              
26             __END__