File Coverage

blib/lib/GnuPG/HashInit.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
path n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 8 9 88.8


line stmt bran path cond sub pod time code
1               package GnuPG::HashInit;
2 76       76   49277 use Moo::Role;
  76           180  
  76           491  
3                
4               sub hash_init {
5 588       588 0 13986 my ($self, %args) = @_;
6 588           6046 while ( my ( $method, $value ) = each %args ) {
7 1244           70628 $self->$method($value);
8               }
9               }
10                
11               1;
12               __END__