File Coverage

blib/lib/Digest/SHA1.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Digest::SHA1;
2              
3 3     3   6076 use strict;
  3         4  
  3         98  
4 3     3   14 use vars qw($VERSION @ISA @EXPORT_OK);
  3         6  
  3         650  
5              
6             $VERSION = '2.13';
7              
8             require Exporter;
9             *import = \&Exporter::import;
10             @EXPORT_OK = qw(sha1 sha1_hex sha1_base64 sha1_transform);
11              
12             require DynaLoader;
13             @ISA=qw(DynaLoader);
14              
15             eval {
16             require Digest::base;
17             push(@ISA, 'Digest::base');
18             };
19             if ($@) {
20             my $err = $@;
21             *add_bits = sub { die $err };
22             }
23              
24             Digest::SHA1->bootstrap($VERSION);
25              
26             1;
27             __END__