lib/Frey/Escape.pm

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

use Data::Dump qw/dump/;

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;
}

sub html_dump {
        my $self = shift;
        my $html = dump( @_ );
        $html =~ s/($escape_re)/$escape{$1}/g;
        return $html;
}
1	package Frey::Escape;
2	use Moose::Role;
3
4	use Data::Dump qw/dump/;
5
6	my %escape = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"');
7	my $escape_re = join '\|' => keys %escape;
8
9	sub html_escape {
10	my ( $self, $html ) = @_;
11	$html =~ s/($escape_re)/$escape{$1}/g;
12	return $html;
13	}
14
15	sub html_dump {
16	my $self = shift;
17	my $html = dump( @_ );
18	$html =~ s/($escape_re)/$escape{$1}/g;
19	return $html;
20	}