File Coverage

blib/lib/Data/Sah/Filter/js/Str/upcase.pm
Criterion Covered Total %
statement 8 14 57.1
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 11 21 52.3


line stmt bran cond sub pod time code
1             package Data::Sah::Filter::js::Str::upcase;
2              
3 1     1   541748 use 5.010001;
  1         5  
4 1     1   7 use strict;
  1         2  
  1         30  
5 1     1   11 use warnings;
  1         3  
  1         303  
6              
7             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
8             our $DATE = '2024-07-17'; # DATE
9             our $DIST = 'Data-Sah-Filter'; # DIST
10             our $VERSION = '0.025'; # VERSION
11              
12             sub meta {
13             +{
14 0     0 0   v => 1,
15             summary => 'Convert string to uppercase',
16             target_type => 'str',
17             examples => [
18             {value=>'foo', filtered_value=>'FOO'},
19             {value=>'Foo', filtered_value=>'FOO'},
20             {value=>'fOO', filtered_value=>'FOO'},
21             {value=>'FOO'},
22             ],
23             };
24             }
25              
26             sub filter {
27 0     0 0   my %args = @_;
28              
29 0           my $dt = $args{data_term};
30              
31 0           my $res = {};
32              
33 0           $res->{expr_filter} = "$dt.toUpperCase()";
34              
35 0           $res;
36             }
37              
38             1;
39             # ABSTRACT: Convert string to uppercase
40              
41             __END__