File Coverage

blib/lib/Object/Signature.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Object::Signature; # git description: 5b580b0
2              
3 2     2   54197 use strict;
  2         11  
  2         47  
4 2     2   8 use warnings;
  2         4  
  2         104  
5              
6             our $VERSION = '1.08';
7              
8 2     2   968 use Storable 2.11 ();
  2         5005  
  2         49  
9 2     2   11 use Digest::MD5 2.00 ();
  2         26  
  2         96  
10              
11             sub signature {
12 15     15 1 6452 local $Storable::canonical = 1;
13 15         36 Digest::MD5::md5_hex(
14             Storable::nfreeze(shift)
15             );
16             }
17              
18             1;
19              
20             __END__