File Coverage

blib/lib/Data/Pipeline/Action/ExcludeFields.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package Data::Pipeline::Action::ExcludeFields;
2              
3 1     1   15697 use Moose;
  0            
  0            
4             with 'Data::Pipeline::Action';
5              
6             has fields => (
7             is => 'ro',
8             isa => 'ArrayRef',
9             lazy => 1,
10             default => sub { [ ] },
11             predicate => 'has_fields',
12             );
13              
14             sub map_item {
15             my($self, $item) = @_;
16              
17             delete @{$item}{@{$self -> fields}};
18             $item;
19             }
20              
21             1;
22              
23             __END__