--- lib/PXElator/html.pm	2009/08/09 16:37:46	179
+++ lib/PXElator/html.pm	2009/08/09 18:56:04	180
@@ -1,5 +1,7 @@
 package html;
 
+use Data::Dump qw/dump/;
+
 sub table {
 	my $cols = shift;
 	my $th;
@@ -46,6 +48,14 @@
 	);
 }
 
+sub pre_dump {
+	my $data = shift;
+	my $dump = dump( $data );
+	$dump =~ s{"([^"]+)"(\s*=>)}{$1$2}gs;
+	$dump =~ s{"([^"]+)"}{"<b>$1</b>"}gs;
+	qq|<pre>$dump</pre>|;
+}
+
 warn "loaded";
 
 1;