File Coverage

blib/lib/Catmandu/Fix/capitalize.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 29 29 100.0


line stmt bran cond sub pod time code
1              
2             use Catmandu::Sane;
3 1     1   87303  
  1         2  
  1         6  
4             our $VERSION = '1.2019';
5              
6             use Moo;
7 1     1   6 use Catmandu::Util::Path qw(as_path);
  1         2  
  1         3  
8 1     1   619 use Catmandu::Util qw(as_utf8);
  1         2  
  1         47  
9 1     1   6 use namespace::clean;
  1         1  
  1         34  
10 1     1   5 use Catmandu::Fix::Has;
  1         2  
  1         3  
11 1     1   596  
  1         2  
  1         5  
12             with 'Catmandu::Fix::Builder';
13              
14             has path => (fix_arg => 1);
15              
16             my ($self) = @_;
17             as_path($self->path)
18 3     3   23 ->updater(if_string => sub {ucfirst lc as_utf8 $_[0]});
19             }
20 3     5   11  
  5         12  
21             1;
22              
23              
24             =pod
25              
26             =head1 NAME
27              
28             Catmandu::Fix::capitalize - capitalize the value of a key
29              
30             =head1 SYNOPSIS
31              
32             # Capitalize the value of foo. E.g. foo => 'bar'
33             capitalize(foo) # foo => 'Bar'
34              
35             =head1 SEE ALSO
36              
37             L<Catmandu::Fix>
38              
39             =cut