--- trunk/lib/Frey/Escape.pm	2008/11/06 20:25:27	326
+++ trunk/lib/Frey/Escape.pm	2008/11/06 20:56:44	327
@@ -1,6 +1,8 @@
 package Frey::Escape;
 use Moose::Role;
 
+use Data::Dump qw/dump/;
+
 my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
 my $escape_re  = join '|' => keys %escape;
 
@@ -10,3 +12,9 @@
 	return $html;
 }
 
+sub html_dump {
+	my $self = shift;
+	my $html = dump( @_ );
+	$html =~ s/($escape_re)/$escape{$1}/g;
+	return $html;
+}