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.1000';
3 13     13   59670 use strict;
  13         32  
  13         318  
4 13     13   54 use warnings;
  13         23  
  13         313  
5              
6 13     13   463 use parent qw(Exporter);
  13         322  
  13         60  
7              
8 13     13   709 use vars qw(@EXPORT_OK);
  13         21  
  13         1701  
9              
10              
11             @EXPORT_OK = (qw(escape_html));
12              
13             sub escape_html
14             {
15 306     306 1 594 my $string = shift;
16 306         571 $string =~ s{&}{&}gso;
17 306         420 $string =~ s{<}{<}gso;
18 306         440 $string =~ s{>}{>}gso;
19 306         395 $string =~ s{"}{"}gso;
20 306         923 return $string;
21             }
22              
23              
24             1;
25              
26             __END__