File Coverage

blib/lib/Acme/Anything.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Acme::Anything;
2 1     1   781 use strict;
  1         2  
  1         51  
3 1     1   32 use 5.008;
  1         4  
  1         46  
4 1     1   41 use warnings;
  1         2  
  1         128  
5              
6             our $VERSION = '0.04';
7              
8             push @main::INC, \ &handler_of_last_resort;
9              
10             sub handler_of_last_resort {
11 1     1 0 825 my $fake_source_code = '1';
12 1     1   7 open my ($fh), '<', \ $fake_source_code;
  1         2  
  1         9  
  1         36  
13 1         1721 return $fh;
14             };
15              
16 1     1   7 no warnings; ## no critic (warning)
  1         1  
  1         59  
17             'Warning! The consumption of alcohol may cause you to think you have mystical kung-fu powers.'
18              
19             __END__