lib/Frey/Escape.pm

package Frey::Escape;
use Moose::Role;

my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
my $escape_re  = join '|' => keys %escape;

sub html_escape {
        my ( $self, $html ) = @_;
        $html =~ s/($escape_re)/$escape{$1}/g;
        return $html;
}

1	package Frey::Escape;
2	use Moose::Role;
3
4	my %escape = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"');
5	my $escape_re = join '\|' => keys %escape;
6
7	sub html_escape {
8	my ( $self, $html ) = @_;
9	$html =~ s/($escape_re)/$escape{$1}/g;
10	return $html;
11	}
12