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	dpavlin	225	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