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 72       72   45775 use Moo::Role;
  72           180  
  72           484  
3                
4               sub hash_init {
5 559       559 0 12962 my ($self, %args) = @_;
6 559           5370 while ( my ( $method, $value ) = each %args ) {
7 1177           67182 $self->$method($value);
8               }
9               }
10                
11               1;
12               __END__