Parent Directory
| 
Revision Log
| 
Patch
| revision 961 by dpavlin, Wed Jan 7 19:41:48 2009 UTC | revision 968 by dpavlin, Fri Jan 9 14:52:58 2009 UTC | |
|---|---|---|
| # | Line 3 use Moose::Role; | Line 3 use Moose::Role; |
| 3 | ||
| 4 | with 'Frey::Session'; | with 'Frey::Session'; |
| 5 | ||
| #use Continuity::Widget::DomNode; | ||
| 6 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
| 7 | use Carp qw/confess cluck carp/; | use Carp qw/confess cluck carp/; |
| 8 | use File::Slurp; | use File::Slurp; |
| # | Line 83 my $escape_re = join '|' => keys %escap | Line 82 my $escape_re = join '|' => keys %escap |
| 82 | ||
| 83 | sub html_escape { | sub html_escape { |
| 84 | my ( $self, $html ) = @_; | my ( $self, $html ) = @_; |
| 85 | return '' unless defined $html; | |
| 86 | $html =~ s/($escape_re)/$escape{$1}/g; | $html =~ s/($escape_re)/$escape{$1}/g; |
| 87 | return $html; | return $html; |
| 88 | } | } |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |