File Coverage

blib/lib/Test/Deep/ScalarRef.pm
Criterion Covered Total %
statement 18 18 100.0
branch 3 4 75.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 26 29 89.6


line stmt bran cond sub pod time code
1 6     6   42 use strict;
  6         12  
  6         189  
2 6     6   28 use warnings;
  6         15  
  6         254  
3              
4             package Test::Deep::ScalarRef 1.203;
5              
6 6     6   924 use Test::Deep::Ref;
  6         11  
  6         40  
7              
8             sub init
9             {
10 21     21 0 30 my $self = shift;
11              
12 21         33 my $val = shift;
13              
14 21         271 $self->{val} = $val;
15             }
16              
17             sub descend
18             {
19 21     21 0 36 my $self = shift;
20              
21 21         40 my $got = shift;
22 21         40 my $exp = $self->{val};
23              
24 21 50       71 return 0 unless $self->test_class($got);
25 21 100       112 return 0 unless $self->test_reftype($got, Scalar::Util::reftype($exp));
26 20         54 return Test::Deep::descend($got, Test::Deep::scalarrefonly($exp));
27             }
28              
29             1;
30              
31             __END__