File Coverage

File:local/lib/perl5/Test/Deep/Ref.pm
Coverage:93.3%

linestmtbrancondsubtimecode
1
2
2
2
2
6
2
36
use strict;
2
2
2
2
2
4
2
33
use warnings;
3
4package Test::Deep::Ref;
5
6
2
2
2
2
389
3
5
use Test::Deep::Cmp;
7
8
2
2
2
2
7
2
174
use Scalar::Util qw( blessed );
9
10sub test_class
11{
12
22
22
15
        my $self = shift;
13
22
13
        my $got = shift;
14
15
22
15
        my $exp = $self->{val};
16
17
22
50
21
        if ($Test::Deep::Snobby)
18        {
19
22
28
                return Test::Deep::descend($got, Test::Deep::blessed(blessed($exp)));
20        }
21        else
22        {
23
0
0
                return 1;
24        }
25}
26
27sub test_reftype
28{
29
22
22
17
        my $self = shift;
30
22
11
        my $got = shift;
31
22
12
        my $reftype = shift;
32
33
22
30
        return Test::Deep::descend($got, Test::Deep::reftype($reftype));
34}
35
361;