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 79       79   50140 use Moo::Role;
  79           252  
  79           578  
3                
4               sub hash_init {
5 599       599 0 14670 my ($self, %args) = @_;
6 599           6879 while ( my ( $method, $value ) = each %args ) {
7 1255           78881 $self->$method($value);
8               }
9               }
10                
11               1;
12               __END__