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