File Coverage

blib/lib/Catmandu/Fix/upcase.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 8     8   86293  
  8         16  
  8         56  
4             our $VERSION = '1.2018';
5              
6             use Moo;
7 8     8   49 use Catmandu::Util::Path qw(as_path);
  8         18  
  8         40  
8 8     8   3233 use Catmandu::Util qw(as_utf8);
  8         16  
  8         394  
9 8     8   45 use namespace::clean;
  8         14  
  8         322  
10 8     8   55 use Catmandu::Fix::Has;
  8         14  
  8         50  
11 8     8   3016  
  8         17  
  8         48  
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 {uc(as_utf8($_[0]))});
18 13     13   117 }
19 13     16   58  
  16         54  
20             1;
21              
22              
23             =pod
24              
25             =head1 NAME
26              
27             Catmandu::Fix::upcase - uppercase the value of a field
28              
29             =head1 SYNOPSIS
30              
31             # Uppercase the value of 'foo'. E.g. foo => 'bar'
32             upcase(foo) # foo => 'BAR'
33              
34             =head1 SEE ALSO
35              
36             L<Catmandu::Fix>
37              
38             =cut