File Coverage

File:local/lib/perl5/Test/Deep/ArrayLengthOnly.pm
Coverage:58.3%

linestmtbrancondsubtimecode
1
2
2
2
2
6
2
39
use strict;
2
2
2
2
2
5
2
35
use warnings;
3
4package Test::Deep::ArrayLengthOnly;
5
6
2
2
2
2
4
2
6
use Test::Deep::Ref;
7
8sub init
9{
10
22
22
14
        my $self = shift;
11
12
22
13
        my $val = shift;
13
14
22
128
        $self->{val} = $val;
15}
16
17sub descend
18{
19
22
22
14
        my $self = shift;
20
22
14
        my $got = shift;
21
22
22
15
        my $len = $self->{val};
23
24
22
30
        return @$got == $len;
25}
26
27sub render_stack
28{
29
0
0
        my $self = shift;
30
0
        my ($var, $data) = @_;
31
32
0
        return "array length of $var";
33}
34
35sub renderVal
36{
37
0
0
        my $self = shift;
38
39
0
        my $val = shift;
40
41
0
        return "array with $val element(s)"
42}
43
44sub renderGot
45{
46
0
0
        my $self = shift;
47
48
0
        my $got = shift;
49
50
0
        return $self->renderVal(@$got + 0);
51}
52
53sub renderExp
54{
55
0
0
        my $self = shift;
56
57
0
        return $self->renderVal($self->{val});
58}
59
601;