File Coverage

blib/lib/HTML/FormFu/Filter/LowerCase.pm
Criterion Covered Total %
statement 9 9 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 13 15 86.6


line stmt bran cond sub pod time code
1 4     4   716 use strict;
  4         8  
  4         322  
2              
3             package HTML::FormFu::Filter::LowerCase;
4             $HTML::FormFu::Filter::LowerCase::VERSION = '2.07';
5             # ABSTRACT: filter transforming to lower case
6              
7 4     4   24 use Moose;
  4         14  
  4         39  
8             extends 'HTML::FormFu::Filter';
9              
10             sub filter {
11 1     1 0 4 my ( $self, $value ) = @_;
12              
13 1 50       4 return if !defined $value;
14              
15 1         3 return lc $value;
16             }
17              
18             __PACKAGE__->meta->make_immutable;
19              
20             1;
21              
22             __END__
23              
24             =pod
25              
26             =encoding UTF-8
27              
28             =head1 NAME
29              
30             HTML::FormFu::Filter::LowerCase - filter transforming to lower case
31              
32             =head1 VERSION
33              
34             version 2.07
35              
36             =head1 DESCRIPTION
37              
38             LowerCase transforming filter.
39              
40             =head1 AUTHOR
41              
42             Carl Franks, C<cfranks@cpan.org>
43              
44             Based on the original source code of L<HTML::Widget::Filter::LowerCase>, by
45             Lyo Kato, C<lyo.kato@gmail.com>
46              
47             =head1 LICENSE
48              
49             This library is free software, you can redistribute it and/or modify it under
50             the same terms as Perl itself.
51              
52             =head1 AUTHOR
53              
54             Carl Franks <cpan@fireartist.com>
55              
56             =head1 COPYRIGHT AND LICENSE
57              
58             This software is copyright (c) 2018 by Carl Franks.
59              
60             This is free software; you can redistribute it and/or modify it under
61             the same terms as the Perl 5 programming language system itself.
62              
63             =cut