print $client ok
, qq|<table>|
;
+ my ( $s1,$s2 ) = ( ' style="background: #eee"', '' );
store::query( sub {
my $o = shift;
my $p = delete( $o->{package} );
# XXX sigh, dump dies if we don't do this
delete $o->{$_} foreach ( grep { ! defined $o->{$_} } keys %$o );
- print $client qq|<tr><td>|, join(qq|</td><td>|, map { $p->{$_} } keys %$p ), qq|</td><td><pre>|, dump( $o ), qq|</pre></td></tr>\n|;
+ print $client qq|<tr$s1><td>|, join(qq|</td><td>|, map { $p->{$_} } keys %$p ), qq|</td><td><pre>|, dump( $o ), qq|</pre></td></tr>\n|;
+ ( $s1, $s2 ) = ( $s2, $s1 );
});
print $client qq|</table>|;