File Coverage

blib/lib/Catmandu/Fix/downcase.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 2     2   94783  
  2         7  
  2         11  
4             our $VERSION = '1.2018';
5              
6             use Moo;
7 2     2   19 use Catmandu::Util::Path qw(as_path);
  2         2  
  2         12  
8 2     2   1302 use Catmandu::Util qw(as_utf8);
  2         5  
  2         97  
9 2     2   11 use namespace::clean;
  2         3  
  2         74  
10 2     2   11 use Catmandu::Fix::Has;
  2         4  
  2         10  
11 2     2   1017  
  2         5  
  2         20  
12             with 'Catmandu::Fix::Builder';
13              
14             has path => (fix_arg => 1);
15              
16             my ($self) = @_;
17             as_path($self->path)->updater(if_string => sub {lc as_utf8 $_[0]});
18 2     2   25 }
19 2     3   17  
  3         16  
20             1;
21              
22              
23             =pod
24              
25             =head1 NAME
26              
27             Catmandu::Fix::downcase - lowercase the value of a field
28              
29             =head1 SYNOPSIS
30              
31             # Lowercase 'foo'. E.g. foo => 'BAR'
32             downcase(foo) # foo => 'bar'
33              
34             =head1 SEE ALSO
35              
36             L<Catmandu::Fix>
37              
38             =cut