Parent Directory | Revision Log | Patch
revision 225 by dpavlin, Sat Nov 1 00:59:02 2008 UTC | revision 327 by dpavlin, Thu Nov 6 20:56:44 2008 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | package Frey::Escape; | package Frey::Escape; |
2 | use Moose::Role; | use Moose::Role; |
3 | ||
4 | use Data::Dump qw/dump/; | |
5 | ||
6 | my %escape = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"'); | my %escape = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"'); |
7 | my $escape_re = join '|' => keys %escape; | my $escape_re = join '|' => keys %escape; |
8 | ||
# | Line 10 sub html_escape { | Line 12 sub html_escape { |
12 | return $html; | 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 | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |