File Coverage

blib/lib/Template/Stash/AutoEscape/Escaped/HTML.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	22	23	95.6

package Template::Stash::AutoEscape::Escaped::HTML;
use strict;
use warnings;
use base qw(Template::Stash::AutoEscape::Escaped::Base);

sub escape {
    my $class = shift;
    my $text = shift;
    for ($text) {
        s/&/&/g;
        s/
        s/>/>/g;
        s/"/"/g;
        s/'/'/g;
    }
    return $text;
    # return $class->new($text, 1);
}

1;