File Coverage

blib/lib/Test/Deep/Filter.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1 6     6   197775 use 5.006; # our
  6         21  
2 6     6   30 use strict;
  6         10  
  6         151  
3 6     6   29 use warnings;
  6         9  
  6         1010  
4              
5             package Test::Deep::Filter;
6              
7             our $VERSION = '0.001001';
8              
9             # ABSTRACT: Perform a filter on a matched element before doing sub-matching
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13             require Exporter;
14             *import = \&Exporter::import; ## no critic (ProhibitCallsToUnexportedSubs)
15              
16             our @EXPORT_OK = ('filter');
17              
18             sub filter {
19 9     9 1 43043 my ( $code, $expected ) = @_;
20 9         2442 require Test::Deep::Filter::Object;
21 9         68 return Test::Deep::Filter::Object->new( $code, $expected );
22             }
23              
24             1;
25              
26             __END__