File Coverage

blib/lib/Crypt/Keyczar/HmacSHA512Key.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 17 19 89.4


line stmt bran cond sub pod time code
1             package Crypt::Keyczar::HmacSHA512Key;
2 1     1   7 use base 'Crypt::Keyczar::HmacKey';
  1         2  
  1         97  
3 1     1   7 use strict;
  1         10  
  1         34  
4 1     1   4 use warnings;
  1         3  
  1         155  
5              
6              
7              
8 3     3 0 12 sub digest_size { return 64 }
9              
10              
11             sub get_engine {
12 6     6 0 10 my $self = shift;
13 6         15 return Crypt::Keyczar::HmacEngine->new('sha512', $self->get_bytes);
14             }
15              
16             1;
17             __END__