File Coverage

blib/lib/HTML/FormFu/Filter/UpperCase.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::UpperCase;
2              
3 4     4   472 use strict;
  4         5  
  4         154  
4             our $VERSION = '2.05'; # VERSION
5              
6 4     4   350 use Moose;
  4         6  
  4         1091  
7             extends 'HTML::FormFu::Filter';
8              
9             sub filter {
10 3     3 0 6 my ( $self, $value ) = @_;
11              
12 3 50       7 return if !defined $value;
13              
14 3         9 return uc $value;
15             }
16              
17             __PACKAGE__->meta->make_immutable;
18              
19             1;
20              
21             __END__
22              
23             =head1 NAME
24              
25             HTML::FormFu::Filter::UpperCase - filter transforming to upper case
26              
27             =head1 VERSION
28              
29             version 2.05
30              
31             =head1 DESCRIPTION
32              
33             UpperCase 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::UpperCase>, 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