File Coverage

blib/lib/Crypt/PBKDF2/Hash/HMACSHA1.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 7 9 77.7
pod 0 4 0.0
total 25 33 75.7


line stmt bran cond sub pod time code
1             package Crypt::PBKDF2::Hash::HMACSHA1;
2             # ABSTRACT: HMAC-SHA1 support for Crypt::PBKDF2 using Digest::SHA
3             our $VERSION = '0.261630'; # VERSION
4             our $AUTHORITY = 'cpan:ARODLAND'; # AUTHORITY
5 2     2   2013 use Moo 2;
  2         30  
  2         10  
6 2     2   731 use strictures 2;
  2         19  
  2         85  
7 2     2   999 use namespace::autoclean;
  2         4  
  2         23  
8 2     2   1588 use Digest::SHA ();
  2         7570  
  2         61  
9 2     2   12 use Carp qw(croak);
  2         3  
  2         296  
10              
11             with 'Crypt::PBKDF2::Hash';
12              
13             sub hash_len {
14 9     9 0 24 return 20;
15             }
16              
17             sub generate {
18 8509     8509 0 11252 my $self = shift; # ($data, $key)
19 8509         53972 return Digest::SHA::hmac_sha1(@_);
20             }
21              
22             sub to_algo_string {
23 0     0 0   return;
24             }
25              
26             sub from_algo_string {
27 0     0 0   croak "No argument expected";
28             }
29              
30             1;
31              
32             __END__