File Coverage

blib/lib/Test/Deep/RegexpOnly.pm
Criterion Covered Total %
statement 25 25 100.0
branch 3 4 75.0
condition n/a
subroutine 8 8 100.0
pod 0 4 0.0
total 36 41 87.8


line stmt bran cond sub pod time code
1 1     1   8 use strict;
  1         2  
  1         32  
2 1     1   5 use warnings;
  1         2  
  1         36  
3              
4             package Test::Deep::RegexpOnly 1.203;
5              
6 1     1   5 use Test::Deep::Cmp;
  1         2  
  1         6  
7              
8 1     1   5 use Scalar::Util qw( blessed );
  1         2  
  1         237  
9              
10             sub init
11             {
12 2     2 0 4 my $self = shift;
13              
14 2         3 my $val = shift;
15              
16 2 50       7 $val = ref $val ? $val : qr/$val/;
17              
18 2         41 $self->{val} = $val;
19             }
20              
21             sub descend
22             {
23 2     2 0 4 my $self = shift;
24 2         3 my $got = shift;
25              
26 2         3 my $re = $self->{val};
27              
28 2 100       14 return $got =~ $self->{val} ? 1 : 0;
29             }
30              
31             sub diag_message
32             {
33 1     1 0 2 my $self = shift;
34              
35 1         1 my $where = shift;
36              
37 1         4 return "Using Regexp on $where";
38             }
39              
40             sub renderExp
41             {
42 1     1 0 2 my $self = shift;
43              
44 1         4 return "$self->{val}";
45             }
46              
47             1;
48              
49             __END__