/[Frey]/trunk/lib/Frey/Escape.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Escape.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 326 by dpavlin, Sat Nov 1 00:59:02 2008 UTC revision 327 by dpavlin, Thu Nov 6 20:56:44 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 = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');  my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
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            my $html = dump( @_ );
18            $html =~ s/($escape_re)/$escape{$1}/g;
19            return $html;
20    }
Legend:
Removed from v.326  
changed lines
  Added in v.327
  ViewVC Help
Powered by ViewVC 1.1.26