File Coverage

blib/lib/Catmandu/Fix/remove_field.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Catmandu::Fix::remove_field;
2              
3 5     5   107320 use Catmandu::Sane;
  5         13  
  5         36  
4              
5             our $VERSION = '1.2020';
6              
7 5     5   36 use Moo;
  5         22  
  5         34  
8 5     5   3170 use Catmandu::Util::Path qw(as_path);
  5         11  
  5         320  
9 5     5   37 use namespace::clean;
  5         16  
  5         31  
10 5     5   2825 use Catmandu::Fix::Has;
  5         14  
  5         34  
11              
12             with 'Catmandu::Fix::Builder';
13              
14             has path => (fix_arg => 1);
15              
16             sub _build_fixer {
17 8     8   76 my ($self) = @_;
18 8         38 as_path($self->path)->deleter;
19             }
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =head1 NAME
28              
29             Catmandu::Fix::remove_field - remove a field form the data
30              
31             =head1 SYNOPSIS
32              
33             # Remove the foo.bar field
34             remove_field(foo.bar)
35              
36             =head1 SEE ALSO
37              
38             L<Catmandu::Fix>
39              
40             =cut