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 1     1   5 #line 1
  1         4  
  1         38  
2 1     1   5 use strict;
  1         2  
  1         34  
3             use warnings;
4              
5             package Test::Deep::ArrayLength;
6 1     1   4  
  1         2  
  1         14  
7             use Test::Deep::Ref;
8              
9             sub init
10 3     3 0 7 {
11             my $self = shift;
12 3         139  
13             my $val = shift;
14 3         112  
15             $self->{val} = $val;
16             }
17              
18             sub descend
19 3     3 0 5 {
20 3         6 my $self = shift;
21             my $got = shift;
22 3         7  
23             my $exp = $self->{val};
24 3 50       16  
25             return 0 unless $self->test_reftype($got, "ARRAY");
26 3         15  
27             return Test::Deep::descend($got, Test::Deep::arraylengthonly($exp));
28             }
29              
30             1;