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 101     101   2222 use 5.010;
  101         310  
  101         3895  
3              
4 101     101   411 use strict;
  101         126  
  101         2744  
5 101     101   379 use warnings;
  101         130  
  101         2833  
6              
7             # Can't use sigantures here, Signatures needs CODE.
8              
9 101     101   47096 use Hash::FieldHash qw(fieldhashes);
  101         59739  
  101         12832  
10             fieldhashes \my(%Signatures);
11              
12             sub __set_signature {
13 1965     1965   4946 $Signatures{$_[0]} = $_[1];
14             }
15              
16             sub signature {
17 2186     2186 0 7150 return $Signatures{$_[0]};
18             }
19              
20             1;