File Coverage

blib/lib/HTML/Widgets/NavMenu/EscapeHtml.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package HTML::Widgets::NavMenu::EscapeHtml;
2             $HTML::Widgets::NavMenu::EscapeHtml::VERSION = '1.0901';
3 13     13   60284 use strict;
  13         34  
  13         310  
4 13     13   55 use warnings;
  13         23  
  13         305  
5              
6 13     13   446 use parent qw(Exporter);
  13         297  
  13         54  
7              
8 13     13   630 use vars qw(@EXPORT_OK);
  13         23  
  13         1750  
9              
10              
11             @EXPORT_OK = (qw(escape_html));
12              
13             sub escape_html
14             {
15 306     306 1 649 my $string = shift;
16 306         570 $string =~ s{&}{&}gso;
17 306         412 $string =~ s{<}{<}gso;
18 306         388 $string =~ s{>}{>}gso;
19 306         391 $string =~ s{"}{"}gso;
20 306         932 return $string;
21             }
22              
23              
24             1;
25              
26             __END__