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   209450 use strict;
  12         24  
  12         458  
3 12     12   55 use warnings;
  12         16  
  12         325  
4 12     12   52 use base 'Digest::base';
  12         36  
  12         1223  
5              
6 12     12   61 use XSLoader ();
  12         14  
  12         658  
7             BEGIN {
8 12     12   23 our $VERSION = '2.01';
9              
10 12         5404 XSLoader::load __PACKAGE__, $VERSION;
11              
12             # Pre-1.0.4 used base64digest, maintain API compatibility with it.
13 12         332 *base64digest = \&Digest::base::b64digest;
14             }
15              
16             1;
17              
18             __END__