--- trunk/lib/Frey/Run.pm 2008/11/16 14:07:13 353
+++ trunk/lib/Frey/Run.pm 2008/11/16 16:36:53 358
@@ -115,6 +115,7 @@
} elsif ( $self->run eq 'sponge' ) {
my $data = $o->sponge;
confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH';
+ $html .= "" . $#{ $data->{rows} } . " rows from $class->new" . dump( $self->params ) . "->sponge
";
$html .= '
' . join(' | ', @{$data->{NAME}} ) . ' |
---|---|
' . join(' | ', @$_ ) . ' |