File Coverage

blib/lib/Test/Deep/Ref.pm
Criterion Covered Total %
statement 22 22 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 30 32 93.7


line stmt bran cond sub pod time code
1 26     26   240 use strict;
  26         48  
  26         729  
2 26     26   124 use warnings;
  26         44  
  26         959  
3              
4             package Test::Deep::Ref 1.203;
5              
6 26     26   4552 use Test::Deep::Cmp;
  26         65  
  26         182  
7              
8 26     26   155 use Scalar::Util qw( blessed );
  26         59  
  26         4606  
9              
10             sub test_class
11             {
12 155     155 0 238 my $self = shift;
13 155         212 my $got = shift;
14              
15 155         413 my $exp = $self->{val};
16            
17 155 100       305 if ($Test::Deep::Snobby)
18             {
19 151         423 return Test::Deep::descend($got, Test::Deep::blessed(blessed($exp)));
20             }
21             else
22             {
23 4         12 return 1;
24             }
25             }
26              
27             sub test_reftype
28             {
29 245     245 0 427 my $self = shift;
30 245         879 my $got = shift;
31 245         329 my $reftype = shift;
32              
33 245         594 return Test::Deep::descend($got, Test::Deep::reftype($reftype));
34             }
35              
36             1;
37              
38             __END__