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.0902';
3 13     13   55556 use strict;
  13         29  
  13         299  
4 13     13   54 use warnings;
  13         54  
  13         284  
5              
6 13     13   417 use parent qw(Exporter);
  13         275  
  13         51  
7              
8 13     13   610 use vars qw(@EXPORT_OK);
  13         18  
  13         1745  
9              
10              
11             @EXPORT_OK = (qw(escape_html));
12              
13             sub escape_html
14             {
15 306     306 1 530 my $string = shift;
16 306         573 $string =~ s{&}{&}gso;
17 306         467 $string =~ s{<}{<}gso;
18 306         412 $string =~ s{>}{>}gso;
19 306         417 $string =~ s{"}{"}gso;
20 306         1004 return $string;
21             }
22              
23              
24             1;
25              
26             __END__