File Coverage

blib/lib/Test/Deep/Obj.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition 3 3 100.0
subroutine 8 8 100.0
pod 0 4 0.0
total 34 38 89.4


line stmt bran cond sub pod time code
1 1     1   7 use strict;
  1         2  
  1         35  
2 1     1   6 use warnings;
  1         2  
  1         42  
3              
4             package Test::Deep::Obj 1.203;
5              
6 1     1   6 use Test::Deep::Cmp;
  1         2  
  1         5  
7 1     1   5 use Scalar::Util;
  1         2  
  1         235  
8              
9             sub init
10             {
11 4     4 0 7 my $self = shift;
12              
13 4         6 my $val = shift;
14 4         39 $self->{val} = $val;
15             }
16              
17             sub descend
18             {
19 4     4 0 6 my $self = shift;
20 4         6 my $got = shift;
21              
22             return Scalar::Util::blessed($got)
23 4   100     23 && $got->isa($self->{val});
24             }
25              
26             sub diag_message
27             {
28 2     2 0 3 my $self = shift;
29              
30 2         4 my $where = shift;
31              
32 2         6 return "Checking class of $where with isa()";
33             }
34              
35             sub renderExp
36             {
37 2     2 0 4 my $self = shift;
38              
39 2         9 return "blessed into '$self->{val}' or subclass of '$self->{val}'";
40             }
41              
42             1;
43              
44             __END__