Parent Directory | Revision Log
role for html_escape
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 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |