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             package HTML::FormFu::Filter::LowerCase;
2              
3 4     4   479 use strict;
  4         4  
  4         165  
4             our $VERSION = '2.05'; # VERSION
5              
6 4     4   14 use Moose;
  4         5  
  4         22  
7             extends 'HTML::FormFu::Filter';
8              
9             sub filter {
10 1     1 0 2 my ( $self, $value ) = @_;
11              
12 1 50       6 return if !defined $value;
13              
14 1         4 return lc $value;
15             }
16              
17             __PACKAGE__->meta->make_immutable;
18              
19             1;
20              
21             __END__
22              
23             =head1 NAME
24              
25             HTML::FormFu::Filter::LowerCase - filter transforming to lower case
26              
27             =head1 VERSION
28              
29             version 2.05
30              
31             =head1 DESCRIPTION
32              
33             LowerCase transforming filter.
34              
35             =head1 AUTHOR
36              
37             Carl Franks, C<cfranks@cpan.org>
38              
39             Based on the original source code of L<HTML::Widget::Filter::LowerCase>, by
40             Lyo Kato, C<lyo.kato@gmail.com>
41              
42             =head1 LICENSE
43              
44             This library is free software, you can redistribute it and/or modify it under
45             the same terms as Perl itself.
46              
47             =cut