File Coverage

File:local/lib/perl5/Test/Deep/ArrayLength.pm
Coverage:95.8%

linestmtbrancondsubtimecode
1
2
2
2
2
5
2
39
use strict;
2
2
2
2
2
5
3
36
use warnings;
3
4package Test::Deep::ArrayLength;
5
6
2
2
2
2
3
3
5
use Test::Deep::Ref;
7
8sub init
9{
10
22
22
15
        my $self = shift;
11
12
22
17
        my $val = shift;
13
14
22
120
        $self->{val} = $val;
15}
16
17sub descend
18{
19
22
22
13
        my $self = shift;
20
22
31
        my $got = shift;
21
22
22
17
        my $exp = $self->{val};
23
24
22
50
29
        return 0 unless $self->test_reftype($got, "ARRAY");
25
26
22
61
        return Test::Deep::descend($got, Test::Deep::arraylengthonly($exp));
27}
28
291;