File Coverage

blib/lib/HTML/Template/ESCAPE/TEXT.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	28	42.8

package HTML::Template::ESCAPE::TEXT;
use strict;
use warnings FATAL => 'all';
use base qw(HTML::Template::ESCAPE);
our $VERSION = '2.9_01';

sub output {
  my $self = shift;
  $_ = shift if (@_ > 0);
  s/&/&/g;
  s/\"/"/g; #"
  s/>/>/g;
  s/
  s/'/'/g; #'
  s/\r\n//g;
  s/\n//g;
  s/\r//g;
  s//\n/g;
  $_;
}

1;