Parent Directory
|
Revision Log
|
Patch
revision 225 by dpavlin, Sat Nov 1 00:59:02 2008 UTC | revision 396 by dpavlin, Tue Nov 18 01:44:10 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 | $self->html_escape( dump( @_ ) ); | |
18 | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |