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 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__