File Coverage

inc/Test/Deep/ArrayLength.pm
Criterion Covered Total %
statement 17 17 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1 2     2   14 #line 1
  2         5  
  2         76  
2 2     2   12 use strict;
  2         4  
  2         70  
3             use warnings;
4              
5             package Test::Deep::ArrayLength;
6 2     2   10  
  2         4  
  2         11  
7             use Test::Deep::Ref;
8              
9             sub init
10 19     19 0 33 {
11             my $self = shift;
12 19         32  
13             my $val = shift;
14 19         268  
15             $self->{val} = $val;
16             }
17              
18             sub descend
19 19     19 0 33 {
20 19         35 my $self = shift;
21             my $got = shift;
22 19         30  
23             my $exp = $self->{val};
24 19 50       75  
25             return 0 unless $self->test_reftype($got, "ARRAY");
26 19         88  
27             return Test::Deep::descend($got, Test::Deep::arraylengthonly($exp));
28             }
29              
30             1;