File Coverage

blib/lib/Acme/Sneeze/JP.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Acme::Sneeze::JP;
2              
3 2     2   644 use strict;
  2         4  
  2         69  
4 2     2   24 use 5.8.0;
  2         7  
  2         113  
5             our $VERSION = '0.01';
6              
7 2     2   1686 use Exporter::Lite;
  2         1489  
  2         11  
8             our @EXPORT = qw(sneeze);
9              
10 2     2   131 use Scalar::Util qw(refaddr);
  2         3  
  2         328  
11              
12             our %talk;
13             sub sneeze {
14 1     1 0 12 my $obj = shift;
15 1         8 $talk{refaddr($obj)} = $obj; # someone is talking about you
16             }
17              
18             1;
19             __END__