--- lib/PXElator/html.pm	2009/08/06 22:27:34	172
+++ lib/PXElator/html.pm	2009/08/09 19:09:00	182
@@ -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;