File Coverage

blib/lib/HTML/Template/ESCAPE.pm
Criterion Covered Total %
statement 21 21 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 27 30 90.0


line stmt bran cond sub pod time code
1             package HTML::Template::ESCAPE;
2 7     7   913 use strict;
  7         45  
  7         448  
3 7     7   37 use warnings FATAL => 'all';
  7         13  
  7         330  
4 7     7   34 use base qw();
  7         13  
  7         1557  
5             our $VERSION = '2.9';
6              
7             sub new {
8 9     9 0 16 my $unused;
9 9         21 my $self = \$unused;
10 9         34 bless($self, $_[0]);
11 9         88 return $self;
12             }
13              
14             # straight from the CGI.pm bible.
15             sub output {
16 28     28 0 42 my $self = shift;
17 28 50       73 $_ = shift if (@_ > 0);
18 28         56 s/&/&/g;
19 28         58 s/\"/"/g; #"
20 28         79 s/>/>/g;
21 28         73 s/
22 28         46 s/'/'/g; #'
23 28         84 $_;
24             }
25              
26             1;
27             __END__