File Coverage

blib/lib/TableData/Munge/Filter.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package TableData::Munge::Filter;
2              
3 1     1   74725 use 5.010001;
  1         13  
4 1     1   5 use strict;
  1         2  
  1         19  
5 1     1   11 use warnings;
  1         2  
  1         22  
6              
7 1     1   481 use Role::Tiny::With;
  1         5255  
  1         147  
8              
9             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
10             our $DATE = '2023-06-14'; # DATE
11             our $DIST = 'TableDataRoles-Standard'; # DIST
12             our $VERSION = '0.016'; # VERSION
13              
14             with 'TableDataRole::Munge::Filter';
15              
16             our %SPEC;
17              
18             $SPEC{new} = {
19             v => 1.1,
20             is_meth => 1,
21             is_func => 0,
22             args => {
23             tabledata => {
24             schema => 'any*', # TMP
25             req => 1,
26             },
27             filter => {
28             schema => ['any*', of=>['str*', 'code*']],
29             },
30             filter_hashref => {
31             schema => ['any*', of=>['str*', 'code*']],
32             },
33             },
34             args_rels => {
35             req_one => [qw/filter filter_hashref/],
36             },
37             };
38              
39             1;
40             # ABSTRACT: Filter rows of another tabledata
41              
42             __END__