File Coverage

blib/lib/Catmandu/Fix/append.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1              
2             use Catmandu::Sane;
3 2     2   88877  
  2         6  
  2         12  
4             our $VERSION = '1.2018';
5              
6             use Moo;
7 2     2   12 use Catmandu::Util::Path qw(as_path);
  2         3  
  2         7  
8 2     2   957 use namespace::clean;
  2         4  
  2         86  
9 2     2   11 use Catmandu::Fix::Has;
  2         2  
  2         8  
10 2     2   870  
  2         3  
  2         11  
11             has path => (fix_arg => 1);
12             has value => (fix_arg => 1);
13              
14             with 'Catmandu::Fix::Builder';
15              
16             my ($self) = @_;
17             my $val = $self->value;
18 3     3   29 as_path($self->path)->updater(if_value => sub {join('', $_[0], $val)});
19 3         12 }
20 3     7   12  
  7         127  
21             1;
22              
23              
24             =pod
25              
26             =head1 NAME
27              
28             Catmandu::Fix::append - add a suffix to the value of a field
29              
30             =head1 SYNOPSIS
31              
32             # append to a value. e.g. {name => 'joe'}
33             append(name, y) # {name => 'joey'}
34              
35             =head1 SEE ALSO
36              
37             L<Catmandu::Fix>
38              
39             =cut