Parent Directory | Revision Log
simplify
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 | } |
ViewVC Help | |
Powered by ViewVC 1.1.26 |