--- lib/PXElator/html.pm 2009/08/06 18:09:30 161 +++ lib/PXElator/html.pm 2009/08/09 22:05:09 188 @@ -1,12 +1,22 @@ package html; +use Data::Dump qw/dump/; + sub table { my $cols = shift; + my $th; + + if ( $cols < 0 ) { + $cols = abs($cols); + $th .= qq|
| . join(' ', @_) . qq|| if @_; +} + +sub pre_dump { + my $data = shift; + my $dump = dump( $data ); + $dump =~ s{"([^"]+)"(\s*=>)}{$1 $2}gs; + $dump =~ s{"([^"]*)"}{"$1"}gs; + qq|
$dump|; +} + warn "loaded"; 1;