File Coverage

blib/lib/Test/Deep/RegexpRefOnly.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 4 0.0
total 28 32 87.5


line stmt bran cond sub pod time code
1 1     1   7 use strict;
  1         2  
  1         46  
2 1     1   6 use warnings;
  1         2  
  1         35  
3              
4             package Test::Deep::RegexpRefOnly 1.203;
5              
6 1     1   6 use Test::Deep::Ref;
  1         2  
  1         12  
7              
8             sub init
9             {
10 2     2 0 2 my $self = shift;
11              
12 2         4 my $val = shift;
13              
14 2         39 $self->{val} = $val;
15             }
16              
17             sub descend
18             {
19 2     2 0 3 my $self = shift;
20              
21 2         3 my $got = shift;
22              
23 2         4 my $exp = $self->{val};
24              
25 2         8 return $got eq $exp;
26             }
27              
28             sub render_stack
29             {
30 1     1 0 2 my $self = shift;
31 1         2 my ($var, $data) = @_;
32              
33 1         4 return "m/$var/";
34             }
35              
36             sub renderGot
37             {
38 2     2 0 5 my $self = shift;
39              
40 2         10 return shift()."";
41             }
42              
43             1;
44              
45             __END__