File Coverage

blib/lib/Test/Deep/Class.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 23 25 92.0


line stmt bran cond sub pod time code
1 1     1   8 use strict;
  1         2  
  1         32  
2 1     1   7 use warnings;
  1         2  
  1         42  
3              
4             package Test::Deep::Class 1.204;
5              
6 1     1   390 use Test::Deep::Cmp;
  1         2  
  1         5  
7              
8             sub init
9             {
10 5     5 0 11 my $self = shift;
11              
12 5         9 my $snobby = shift;
13 5         6 my $val = shift;
14              
15 5         42 $self->{snobby} = $snobby;
16 5         12 $self->{val} = $val;
17             }
18              
19             sub descend
20             {
21 5     5 0 10 my $self = shift;
22 5         6 my $got = shift;
23              
24 5         9 local $Test::Deep::Snobby = $self->{snobby};
25              
26 5         13 Test::Deep::wrap($self->{val})->descend($got);
27             }
28              
29             1;
30              
31             __END__