--- lib/PXElator/html.pm 2009/08/09 19:09:00 182
+++ lib/PXElator/html.pm 2009/08/27 14:31:49 307
@@ -14,9 +14,14 @@
my @td = map { "
$_ | " } @_;
my $html = qq{\n$th};
+ my $row = 0;
+
foreach ( 0 .. $#td ) {
$html .= $td[$_];
- $html .= qq{
\n} if ( $_ + 1 ) % $cols == 0;
+ if ( ( $_ + 1 ) % $cols == 0 ) {
+ $zebra = $row++ % 2 == 0 ? qq{ style="background: #eee"} : '';
+ $html .= qq{
\n};
+ };
}
$html .= qq{
\n
};
}
@@ -34,7 +39,7 @@
sub tt {
- qq|| . join(' ', @_) . qq||;
+ qq|| . join(' ', @_) . qq|| if @_;
}
sub select {
@@ -48,11 +53,15 @@
);
}
+sub pre {
+ qq|| . join(' ', @_) . qq|
| if @_;
+}
+
sub pre_dump {
my $data = shift;
my $dump = dump( $data );
$dump =~ s{"([^"]+)"(\s*=>)}{$1 $2}gs;
- $dump =~ s{"([^"]+)"}{"$1"}gs;
+ $dump =~ s{"([^"]*)"}{"$1"}gs;
qq|$dump
|;
}