File Coverage

blib/lib/Digest/Groestl.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Digest::Groestl;
2              
3 7     7   295861 use strict;
  7         19  
  7         402  
4 7     7   37 use warnings;
  7         13  
  7         503  
5 7     7   23150 use parent qw(Exporter Digest::base);
  7         3466  
  7         42  
6              
7             our $VERSION = '0.05';
8             $VERSION = eval $VERSION;
9              
10             eval {
11             require XSLoader;
12             XSLoader::load(__PACKAGE__, $VERSION);
13             1;
14             } or do {
15             require DynaLoader;
16             DynaLoader::bootstrap(__PACKAGE__, $VERSION);
17             };
18              
19             our @EXPORT_OK = qw(
20             groestl_224 groestl_224_hex groestl_224_base64
21             groestl_256 groestl_256_hex groestl_256_base64
22             groestl_384 groestl_384_hex groestl_384_base64
23             groestl_512 groestl_512_hex groestl_512_base64
24             );
25              
26             sub add_bits {
27 204     204 0 173117 my ($self, $data, $bits) = @_;
28 204 100       637 if (2 == @_) {
29 4         79 return $self->_add_bits(pack('B*', $data), length $data);
30             }
31 200         6012 return $self->_add_bits($data, $bits);
32             }
33              
34              
35             1;
36              
37             __END__