File Coverage

blib/lib/SHA.pm
Criterion Covered Total %
statement 10 11 90.9
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 4 25.0
total 16 21 76.1


line stmt bran cond sub pod time code
1             package SHA;
2              
3 1     1   388 use strict;
  1         1  
  1         36  
4 1     1   4 use vars qw($VERSION @ISA @EXPORT_OK);
  1         1  
  1         230  
5              
6             $VERSION = '2.01'; # $Date: 2001/03/14 05:23:06 $
7              
8             require Digest::SHA1;
9             @ISA=qw(Digest::SHA1);
10              
11             require Exporter;
12             *import = *Exporter::imprt;
13             @EXPORT_OK=qw(sha_version);
14              
15             sub hexdigest
16             {
17 8     8 1 11518 my $self = shift;
18 8         96 join(" ", unpack("A8 A8 A8 A8 A8", $self->SUPER::hexdigest(@_)));
19             }
20              
21 0     0 0 0 sub hash { shift->new->add(@_)->digest; }
22 3     3 0 9123 sub hexhash { shift->new->add(@_)->hexdigest; }
23 1     1 0 32 sub sha_version { "SHA-1"; }
24              
25             1;
26              
27             __END__