File Coverage

blib/lib/Test/Deep/RegexpMatches.pm
Criterion Covered Total %
statement 28 28 100.0
branch 2 2 100.0
condition 2 3 66.6
subroutine 9 9 100.0
pod 0 4 0.0
total 41 46 89.1


line stmt bran cond sub pod time code
1 6     6   42 use strict;
  6         10  
  6         167  
2 6     6   30 use warnings;
  6         12  
  6         244  
3              
4             package Test::Deep::RegexpMatches 1.204;
5              
6 6     6   2433 use Test::Deep::Array;
  6         18  
  6         53  
7              
8 6     6   35 use base 'Test::Deep::Array';
  6         13  
  6         261  
9              
10 6     6   34 use Scalar::Util qw( blessed );
  6         12  
  6         1229  
11              
12             sub init
13             {
14 5     5 0 9 my $self = shift;
15              
16 5         6 my $val = shift;
17              
18 5 100 66     34 $val = Test::Deep::array($val) unless
19             blessed($val) and $val->isa("Test::Deep::Cmp");
20              
21 5         51 $self->{val} = $val;
22 5         12 $self->{regex} = shift;
23             }
24              
25             sub descend
26             {
27 5     5 0 7 my $self = shift;
28              
29 5         9 my $got = shift;
30              
31 5         15 return Test::Deep::descend($got, $self->{val});
32             }
33              
34             sub render_stack
35             {
36 2     2 0 4 my $self = shift;
37              
38 2         3 my $stack = shift;
39              
40 2         7 $stack = "[$stack =~ $self->{regex}]";
41              
42 2         5 return $stack;
43             # return $self->SUPER::render_stack($stack);
44             }
45              
46             sub reset_arrow
47             {
48 2     2 0 6 return 1;
49             }
50              
51             1;
52              
53             __END__