File Coverage

blib/lib/Catmandu/Fix/from_json.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 30 30 100.0


line stmt bran cond sub pod time code
1              
2             use Catmandu::Sane;
3 1     1   94836  
  1         3  
  1         6  
4             our $VERSION = '1.2018';
5              
6             use Cpanel::JSON::XS ();
7 1     1   6 use Moo;
  1         2  
  1         14  
8 1     1   3 use Catmandu::Util::Path qw(as_path);
  1         2  
  1         3  
9 1     1   639 use namespace::clean;
  1         2  
  1         43  
10 1     1   6 use Catmandu::Fix::Has;
  1         1  
  1         3  
11 1     1   588  
  1         2  
  1         6  
12             with 'Catmandu::Fix::Builder';
13              
14             has path => (fix_arg => 1);
15              
16             my ($self) = @_;
17             my $json = Cpanel::JSON::XS->new->utf8(0)->pretty(0)->allow_nonref(1);
18 2     2   17 as_path($self->path)->updater(if_string => sub {$json->decode($_[0])});
19 2         14 }
20 2     3   37  
  3         83  
21             1;
22              
23              
24             =pod
25              
26             =head1 NAME
27              
28             Catmandu::Fix::from_json - replace a json field with the parsed value
29              
30             =head1 SYNOPSIS
31              
32             from_json(my.field)
33              
34             =head1 SEE ALSO
35              
36             L<Catmandu::Fix>
37              
38             =cut
39              
40