File Coverage

File:local/lib/perl5/Test/Deep/Array.pm
Coverage:86.2%

linestmtbrancondsubtimecode
1
2
2
2
2
7
1
53
use strict;
2
2
2
2
2
6
1
48
use warnings;
3
4package Test::Deep::Array;
5
6
2
2
2
2
427
3
9
use Test::Deep::Ref;
7
8sub init
9{
10
22
22
12
        my $self = shift;
11
12
22
12
        my $val = shift;
13
14
22
128
        $self->{val} = $val;
15}
16
17sub descend
18{
19
22
22
9
        my $self = shift;
20
22
16
        my $got = shift;
21
22
22
19
        my $exp = $self->{val};
23
24
22
50
27
        return 0 unless Test::Deep::descend($got, Test::Deep::arraylength(scalar @$exp));
25
26
22
50
33
        return 0 unless $self->test_class($got);
27
28
22
35
        return Test::Deep::descend($got, Test::Deep::arrayelementsonly($exp));
29}
30
31sub reset_arrow
32{
33
0
0
        return 0;
34}
35
361;