File Coverage

blib/lib/Digest/Whirlpool.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Digest::Whirlpool;
2 12     12   219971 use strict;
  12         32  
  12         507  
3 12     12   62 use warnings;
  12         12  
  12         384  
4 12     12   57 use base 'Digest::base';
  12         19  
  12         1372  
5              
6 12     12   67 use XSLoader ();
  12         16  
  12         785  
7             BEGIN {
8 12     12   29 our $VERSION = '2.04';
9              
10 12         5956 XSLoader::load __PACKAGE__, $VERSION;
11              
12             # Pre-1.0.4 used base64digest, maintain API compatibility with it.
13 12         376 *base64digest = \&Digest::base::b64digest;
14             }
15              
16             1;
17              
18             __END__