line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
25
|
|
|
25
|
|
156
|
use strict; |
|
25
|
|
|
|
|
48
|
|
|
25
|
|
|
|
|
697
|
|
2
|
25
|
|
|
25
|
|
117
|
use warnings; |
|
25
|
|
|
|
|
104
|
|
|
25
|
|
|
|
|
887
|
|
3
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
package Test::Deep::Ref 1.202; |
5
|
|
|
|
|
|
|
|
6
|
25
|
|
|
25
|
|
4539
|
use Test::Deep::Cmp; |
|
25
|
|
|
|
|
53
|
|
|
25
|
|
|
|
|
133
|
|
7
|
|
|
|
|
|
|
|
8
|
25
|
|
|
25
|
|
140
|
use Scalar::Util qw( blessed ); |
|
25
|
|
|
|
|
42
|
|
|
25
|
|
|
|
|
4320
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub test_class |
11
|
|
|
|
|
|
|
{ |
12
|
155
|
|
|
155
|
0
|
241
|
my $self = shift; |
13
|
155
|
|
|
|
|
223
|
my $got = shift; |
14
|
|
|
|
|
|
|
|
15
|
155
|
|
|
|
|
464
|
my $exp = $self->{val}; |
16
|
|
|
|
|
|
|
|
17
|
155
|
100
|
|
|
|
312
|
if ($Test::Deep::Snobby) |
18
|
|
|
|
|
|
|
{ |
19
|
151
|
|
|
|
|
432
|
return Test::Deep::descend($got, Test::Deep::blessed(blessed($exp))); |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
else |
22
|
|
|
|
|
|
|
{ |
23
|
4
|
|
|
|
|
10
|
return 1; |
24
|
|
|
|
|
|
|
} |
25
|
|
|
|
|
|
|
} |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
sub test_reftype |
28
|
|
|
|
|
|
|
{ |
29
|
245
|
|
|
245
|
0
|
369
|
my $self = shift; |
30
|
245
|
|
|
|
|
369
|
my $got = shift; |
31
|
245
|
|
|
|
|
351
|
my $reftype = shift; |
32
|
|
|
|
|
|
|
|
33
|
245
|
|
|
|
|
544
|
return Test::Deep::descend($got, Test::Deep::reftype($reftype)); |
34
|
|
|
|
|
|
|
} |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
1; |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
__END__ |