File Coverage

blib/lib/perl5i/2/CODE.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package perl5i::2::CODE;
2 103     103   2770 use 5.010;
  103         354  
  103         5418  
3              
4 103     103   571 use strict;
  103         193  
  103         3875  
5 103     103   523 use warnings;
  103         208  
  103         3650  
6              
7             # Can't use sigantures here, Signatures needs CODE.
8              
9 103     103   145126 use Hash::FieldHash qw(fieldhashes);
  103         144888  
  103         21739  
10             fieldhashes \my(%Signatures);
11              
12             sub __set_signature {
13 2003     2003   8512 $Signatures{$_[0]} = $_[1];
14             }
15              
16             sub signature {
17 2337     2337 0 11064 return $Signatures{$_[0]};
18             }
19              
20             1;