Parent Directory | Revision Log
create experimental branch to test Mojo as server instead of Continuity
1 | 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 |