File Coverage

blib/lib/MD5.pm
Criterion Covered Total %
statement 7 8 87.5
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 2 0.0
total 10 14 71.4


line stmt bran cond sub pod time code
1             package MD5; # legacy stuff
2              
3 1     1   614 use strict;
  1         2  
  1         35  
4 1     1   5 use vars qw($VERSION @ISA);
  1         2  
  1         146  
5              
6             $VERSION = '2.03'; # $Date: 2003/11/27 08:42:40 $
7              
8             require Digest::MD5;
9             @ISA=qw(Digest::MD5);
10              
11 0     0 0 0 sub hash { shift->new->add(@_)->digest; }
12 2     2 0 8358 sub hexhash { shift->new->add(@_)->hexdigest; }
13              
14             1;
15             __END__