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;
        $self->html_escape( dump( @_ ) );
}
1	dpavlin	225	package Frey::Escape;
2			use Moose::Role;
3
4	dpavlin	327	use Data::Dump qw/dump/;
5
6	dpavlin	225	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	dpavlin	327	sub html_dump {
16			my $self = shift;
17	dpavlin	396	$self->html_escape( dump( @_ ) );
18	dpavlin	327	}