File Coverage

blib/lib/HTML/Widget/Filter/Whitespace.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1             package HTML::Widget::Filter::Whitespace;
2              
3 88     88   137231 use warnings;
  88         205  
  88         2883  
4 88     88   623 use strict;
  88         202  
  88         2839  
5 88     88   497 use base 'HTML::Widget::Filter';
  88         179  
  88         57090  
6              
7             =head1 NAME
8              
9             HTML::Widget::Filter::Whitespace - Whitespace Filter
10              
11             =head1 SYNOPSIS
12              
13             my $f = $widget->filter( 'Whitespace', 'foo' );
14              
15             =head1 DESCRIPTION
16              
17             Whitespace Filter.
18              
19             =head1 METHODS
20              
21             =head2 filter
22              
23             =cut
24              
25             sub filter {
26 1     1 1 3 my ( $self, $value ) = @_;
27 1         10 $value =~ s/\s+//g;
28 1         10 return $value;
29             }
30              
31             =head1 AUTHOR
32              
33             Sebastian Riedel, C
34              
35             =head1 LICENSE
36              
37             This library is free software, you can redistribute it and/or modify it under
38             the same terms as Perl itself.
39              
40             =cut
41              
42             1;