File Coverage

blib/lib/HTML/FormFu/Filter/Whitespace.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 11 11 100.0


line stmt bran cond sub pod time code
1 4     4   768 use strict;
  4         10  
  4         251  
2              
3             package HTML::FormFu::Filter::Whitespace;
4             $HTML::FormFu::Filter::Whitespace::VERSION = '2.07';
5             # ABSTRACT: filter stripping all whitespace
6              
7 4     4   25 use Moose;
  4         8  
  4         33  
8             extends 'HTML::FormFu::Filter::Regex';
9              
10 2     2 1 14 sub match {qr/\s+/}
11              
12             __PACKAGE__->meta->make_immutable;
13              
14             1;
15              
16             __END__
17              
18             =pod
19              
20             =encoding UTF-8
21              
22             =head1 NAME
23              
24             HTML::FormFu::Filter::Whitespace - filter stripping all whitespace
25              
26             =head1 VERSION
27              
28             version 2.07
29              
30             =head1 DESCRIPTION
31              
32             Removes all whitespace.
33              
34             =head1 AUTHOR
35              
36             Carl Franks, C<cfranks@cpan.org>
37              
38             Based on the original source code of L<HTML::Widget::Filter::Whitespace>, by
39             Sebastian Riedel, C<sri@oook.de>
40              
41             =head1 LICENSE
42              
43             This library is free software, you can redistribute it and/or modify it under
44             the same terms as Perl itself.
45              
46             =head1 AUTHOR
47              
48             Carl Franks <cpan@fireartist.com>
49              
50             =head1 COPYRIGHT AND LICENSE
51              
52             This software is copyright (c) 2018 by Carl Franks.
53              
54             This is free software; you can redistribute it and/or modify it under
55             the same terms as the Perl 5 programming language system itself.
56              
57             =cut