File Coverage

blib/lib/Digest/SHAvite3.pm
Criterion Covered Total %
statement 15 16 93.7
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 21 24 87.5


line stmt bran cond sub pod time code
1             package Digest::SHAvite3;
2              
3 6     6   170810 use strict;
  6         18  
  6         467  
4 6     6   32 use warnings;
  6         13  
  6         222  
5 6     6   5732 use parent qw(Exporter Digest::base);
  6         2197  
  6         32  
6              
7 6     6   6436 use MIME::Base64 ();
  6         5319  
  6         1315  
8              
9             our $VERSION = '0.02';
10             $VERSION = eval $VERSION;
11              
12             eval {
13             require XSLoader;
14             XSLoader::load(__PACKAGE__, $VERSION);
15             1;
16             } or do {
17             require DynaLoader;
18             DynaLoader::bootstrap(__PACKAGE__, $VERSION);
19             };
20              
21             our @EXPORT_OK = qw(
22             shavite3_224 shavite3_224_hex shavite3_224_base64
23             shavite3_256 shavite3_256_hex shavite3_256_base64
24             shavite3_384 shavite3_384_hex shavite3_384_base64
25             shavite3_512 shavite3_512_hex shavite3_512_base64
26             );
27              
28             sub add_bits {
29 200     200 0 193140 my ($self, $data, $bits) = @_;
30 200 50       6518 if (2 == @_) {
31 0         0 return $self->_add_bits(pack('B*', $data), length $data);
32             }
33 200         3845 return $self->_add_bits($data, $bits);
34             }
35              
36              
37             1;
38              
39             __END__