File Coverage

blib/lib/Data/FormValidator/Filters/HTML/Acid.pm
Criterion Covered Total %
statement 21 26 80.7
branch n/a
condition n/a
subroutine 7 9 77.7
pod 1 1 100.0
total 29 36 80.5


line stmt bran cond sub pod time code
1             package Data::FormValidator::Filters::HTML::Acid;
2 4     4   399000 use base qw(Exporter);
  4         11  
  4         1614  
3 4     4   44 use warnings;
  4         10  
  4         218  
4 4     4   22 use strict;
  4         20  
  4         137  
5 4     4   23 use Carp;
  4         7  
  4         323  
6 4     4   24 use vars qw(@EXPORT);
  4         7  
  4         2217  
7              
8             @EXPORT = qw(filter_html);
9              
10 4     4   2659 use HTML::Acid;
  4         14  
  4         145  
11              
12 4     4   33 use version; our $VERSION = qv('0.0.3');
  4         8  
  4         24  
13              
14             # Module implementation here
15              
16             sub filter_html {
17 0     0 1   my %args = @_;
18             return sub {
19 0     0     my $text = shift;
20 0           my $parser = HTML::Acid->new(%args);
21 0           return $parser->burn($text);
22 0           };
23             }
24              
25             1; # Magic true value required at end of module
26             __END__