File Coverage

blib/lib/Template/Stash/EscapeHTML.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	30	31	96.7

package Template::Stash::EscapeHTML;

use strict;
use Template::Config;
use base ($Template::Config::STASH);
our $VERSION = '0.02';

sub get {
    my($self, @args) = @_;
    my($var) = $self->SUPER::get(@args);
    unless (ref($var)) {
        return html_filter($var);
    }
    return $var;
}

sub html_filter {
    my $text = shift;
    for ($text) {
        s/&/&/g;
        s/
        s/>/>/g;
        s/"/"/g;
        s/'/'/g;
    }
    return $text;
}

1;

__END__