File Coverage

blib/lib/Acme/Homer.pm
Criterion Covered Total %
statement 12 18 66.6
branch 0 2 0.0
condition n/a
subroutine 4 9 44.4
pod 5 5 100.0
total 21 34 61.7


line stmt bran cond sub pod time code
1             package Acme::Homer;
2              
3 1     1   24498 use strict;
  1         2  
  1         34  
4 1     1   4 use warnings;
  1         2  
  1         28  
5 1     1   5 use Carp;
  1         6  
  1         87  
6              
7 1     1   868 use version;our $VERSION = qv('0.0.2');
  1         2174  
  1         6  
8              
9             require Exporter;
10             our @ISA = qw(Exporter);
11             our @EXPORT = qw(no_beer_no_tv_make_homer_go_crazy
12             doh why_you_little mmm woohoo );
13              
14 0     0 1   sub doh { goto &Carp::croak; }
15              
16 0     0 1   sub mmm { goto &Carp::carp; }
17              
18 0 0   0 1   sub woohoo { ref $_[0] eq 'GLOB' ? print {shift} @_ : print @_; }
  0            
19              
20 0     0 1   sub why_you_little { goto &Carp::cluck; }
21              
22 0     0 1   sub no_beer_no_tv_make_homer_go_crazy { goto &Carp::confess; }
23              
24             1;
25              
26             __END__