File Coverage

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   172944 use 5.006; # our
  6         14  
2 6     6   23 use strict;
  6         9  
  6         123  
3 6     6   20 use warnings;
  6         7  
  6         749  
4              
5             package Test::Deep::Filter;
6              
7             our $VERSION = '0.001000';
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 44014 my ( $code, $expected ) = @_;
20 9         2811 require Test::Deep::Filter::Object;
21 9         82 return Test::Deep::Filter::Object->new( $code, $expected );
22             }
23              
24             1;
25              
26             __END__