File Coverage

blib/lib/HTML/FormFu/Filter/HTMLEscape.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 17 19 89.4


line stmt bran cond sub pod time code
1             package HTML::FormFu::Filter::HTMLEscape;
2              
3 10     10   508 use strict;
  10         14  
  10         447  
4             our $VERSION = '2.05'; # VERSION
5              
6 10     10   36 use Moose;
  10         13  
  10         58  
7             extends 'HTML::FormFu::Filter';
8              
9             sub filter {
10 8     8 0 11 my ( $self, $value ) = @_;
11              
12 8 50       23 return if !defined $value;
13              
14 8         16 $value =~ s/&(?!(amp|lt|gt|quot);)/&/g;
15 8         11 $value =~ s/</&lt;/g;
16 8         6 $value =~ s/>/&gt;/g;
17 8         17 $value =~ s/"/&quot;/g;
18              
19 8         20 return $value;
20             }
21              
22             __PACKAGE__->meta->make_immutable;
23              
24             1;
25              
26             __END__
27              
28             =head1 NAME
29              
30             HTML::FormFu::Filter::HTMLEscape - filter escaping HTML
31              
32             =head1 VERSION
33              
34             version 2.05
35              
36             =head1 DESCRIPTION
37              
38             HTML escaping filter.
39              
40             =head1 AUTHOR
41              
42             Carl Franks, C<cfranks@cpan.org>
43              
44             Based on the original source code of L<HTML::Widget::Filter::HTMLEscape>, by
45             Lyo Kato, C<lyo.kato@gmail.com>
46              
47             =head1 LICENSE
48              
49             This library is free software, you can redistribute it and/or modify it under
50             the same terms as Perl itself.
51              
52             =cut