File Coverage

blib/lib/Data/Unixish/lc.pm
Criterion Covered Total %
statement 23 23 100.0
branch 2 2 100.0
condition 2 3 66.6
subroutine 7 7 100.0
pod 1 1 100.0
total 35 36 97.2


line stmt bran cond sub pod time code
1             package Data::Unixish::lc;
2              
3 2     2   816 use 5.010;
  2         8  
4 2     2   9 use strict;
  2         3  
  2         40  
5 2     2   344 use syntax 'each_on_array'; # to support perl < 5.12
  2         19950  
  2         8  
6 2     2   3328 use warnings;
  2         5  
  2         84  
7             #use Log::Any '$log';
8              
9 2     2   377 use Data::Unixish::Util qw(%common_args);
  2         4  
  2         474  
10              
11             our $VERSION = '1.570'; # VERSION
12              
13             our %SPEC;
14              
15             $SPEC{lc} = {
16             v => 1.1,
17             summary => 'Convert text to lowercase',
18             description => <<'_',
19              
20             _
21             args => {
22             %common_args,
23             },
24             tags => [qw/text itemfunc/],
25             };
26             sub lc {
27 1     1 1 3 my %args = @_;
28 1         1 my ($in, $out) = ($args{in}, $args{out});
29              
30 1         5 while (my ($index, $item) = each @$in) {
31 5         7 push @$out, _lc_item($item);
32             }
33              
34 1         5 [200, "OK"];
35             }
36              
37             sub _lc_item {
38 12     12   25 my $item = shift;
39 12 100 66     35 if (defined($item) && !ref($item)) {
40 10         16 $item = CORE::lc($item);
41             }
42 12         39 return $item;
43             }
44              
45             1;
46             # ABSTRACT: Convert text to lowercase
47              
48             __END__