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         28  
2 1     1   5 use warnings;
  1         1  
  1         34  
3              
4             package Test::Deep::RegexpRefOnly 1.204;
5              
6 1     1   5 use Test::Deep::Ref;
  1         1  
  1         12  
7              
8             sub init
9             {
10 2     2 0 3 my $self = shift;
11              
12 2         3 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         4 my $got = shift;
22              
23 2         3 my $exp = $self->{val};
24              
25 2         7 return $got eq $exp;
26             }
27              
28             sub render_stack
29             {
30 1     1 0 3 my $self = shift;
31 1         3 my ($var, $data) = @_;
32              
33 1         4 return "m/$var/";
34             }
35              
36             sub renderGot
37             {
38 2     2 0 4 my $self = shift;
39              
40 2         11 return shift()."";
41             }
42              
43             1;
44              
45             __END__