File Coverage

blib/lib/Digest/Shabal.pm
Criterion Covered Total %
statement 12 13 92.3
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             package Digest::Shabal;
2              
3 6     6   89797 use strict;
  6         15  
  6         161  
4 6     6   32 use warnings;
  6         10  
  6         165  
5 6     6   2314 use parent qw(Exporter Digest::base);
  6         1491  
  6         28  
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             shabal_224 shabal_224_hex shabal_224_base64
21             shabal_256 shabal_256_hex shabal_256_base64
22             shabal_384 shabal_384_hex shabal_384_base64
23             shabal_512 shabal_512_hex shabal_512_base64
24             );
25              
26             sub add_bits {
27 200     200 0 120756 my ($self, $data, $bits) = @_;
28 200 50       592 if (2 == @_) {
29 0         0 return $self->_add_bits(pack('B*', $data), length $data);
30             }
31 200         1792 return $self->_add_bits($data, $bits);
32             }
33              
34              
35             1;
36              
37             __END__