File Coverage

blib/lib/Test/Deep/HashEach.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1 1     1   7 use strict;
  1         3  
  1         31  
2 1     1   5 use warnings;
  1         2  
  1         38  
3              
4             package Test::Deep::HashEach 1.204;
5              
6 1     1   5 use Test::Deep::Cmp;
  1         2  
  1         6  
7              
8             sub init
9             {
10 2     2 0 4 my $self = shift;
11              
12 2         5 my $val = shift;
13              
14 2         35 $self->{val} = $val;
15             }
16              
17             sub descend
18             {
19 2     2 0 4 my $self = shift;
20 2         3 my $got = shift;
21              
22 2         4 my %exp;
23              
24 2         15 @exp{keys %$got} = ($self->{val}) x (keys %$got);
25              
26 2         18 return Test::Deep::descend($got, \%exp);
27             }
28              
29             1;
30              
31             __END__