File Coverage

blib/lib/Digest/SIMD.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::SIMD;
2              
3 6     6   103512 use strict;
  6         16  
  6         170  
4 6     6   33 use warnings;
  6         15  
  6         209  
5 6     6   2478 use parent qw(Exporter Digest::base);
  6         1570  
  6         32  
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             simd_224 simd_224_hex simd_224_base64
21             simd_256 simd_256_hex simd_256_base64
22             simd_384 simd_384_hex simd_384_base64
23             simd_512 simd_512_hex simd_512_base64
24             );
25              
26             sub add_bits {
27 200     200 0 126271 my ($self, $data, $bits) = @_;
28 200 50       588 if (2 == @_) {
29 0         0 return $self->_add_bits(pack('B*', $data), length $data);
30             }
31 200         5654 return $self->_add_bits($data, $bits);
32             }
33              
34              
35             1;
36              
37             __END__