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 12     12   71 #line 1
  12         41  
  12         675  
2 12     12   68 use strict;
  12         39  
  12         1167  
3             use warnings;
4              
5             package Test::Deep::ArrayLength;
6 12     12   74  
  12         33  
  12         106  
7             use Test::Deep::Ref;
8              
9             sub init
10 65     65 0 94 {
11             my $self = shift;
12 65         88  
13             my $val = shift;
14 65         1471  
15             $self->{val} = $val;
16             }
17              
18             sub descend
19 65     65 0 97 {
20 65         88 my $self = shift;
21             my $got = shift;
22 65         181  
23             my $exp = $self->{val};
24 65 50       381  
25             return 0 unless $self->test_reftype($got, "ARRAY");
26 65         439  
27             return Test::Deep::descend($got, Test::Deep::arraylengthonly($exp));
28             }
29              
30             1;