File Coverage

blib/lib/Test/Deep/ArrayEach.pm
Criterion Covered Total %
statement 20 23 86.9
branch 1 2 50.0
condition 1 3 33.3
subroutine 6 7 85.7
pod 0 3 0.0
total 28 38 73.6


line stmt bran cond sub pod time code
1 1     1   7 use strict;
  1         2  
  1         29  
2 1     1   5 use warnings;
  1         1  
  1         35  
3              
4             package Test::Deep::ArrayEach 1.203;
5              
6 1     1   5 use Test::Deep::Cmp;
  1         1  
  1         6  
7 1     1   6 use Scalar::Util ();
  1         2  
  1         216  
8              
9             sub init
10             {
11 2     2 0 3 my $self = shift;
12              
13 2         2 my $val = shift;
14              
15 2         33 $self->{val} = $val;
16             }
17              
18             sub descend
19             {
20 2     2 0 4 my $self = shift;
21 2         3 my $got = shift;
22              
23 2 50 33     10 return unless ref $got && Scalar::Util::reftype($got) eq 'ARRAY';
24 2         7 my $exp = [ ($self->{val}) x @$got ];
25              
26 2         10 return Test::Deep::descend($got, $exp);
27             }
28              
29             sub renderExp
30             {
31 0     0 0   my $self = shift;
32 0           my $exp = shift;
33              
34 0           return '[ ' . $self->SUPER::renderExp($self->{val}) . ', ... ]';
35             }
36              
37             1;
38              
39             __END__