File Coverage

blib/lib/Catmandu/Fix/compact.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1              
2             use Catmandu::Sane;
3 1     1   85640  
  1         2  
  1         6  
4             our $VERSION = '1.2019';
5              
6             use Moo;
7 1     1   7 use Catmandu::Util::Path qw(as_path);
  1         2  
  1         4  
8 1     1   627 use Catmandu::Fix::Has;
  1         2  
  1         43  
9 1     1   332  
  1         2  
  1         5  
10             with 'Catmandu::Fix::Builder';
11              
12             has path => (fix_arg => 1);
13              
14             my ($self) = @_;
15             as_path($self->path)
16 1     1   11 ->updater(if_array_ref => sub {[grep defined, @{$_[0]}]});
17             }
18 1     1   6  
  1         2  
  1         18  
19             =head1 NAME
20              
21             Catmandu::Fix::compact - remove undefined values from an array
22              
23             =head1 SYNOPSIS
24              
25             # list => [undef,"hello",undef,"world"]
26             compact(list)
27             # list => ["Hello","world"]
28              
29             =head1 SEE ALSO
30              
31             L<Catmandu::Fix>
32              
33             =cut
34              
35             1;