--- trunk/lib/Frey/Run.pm 2008/11/16 14:07:13 353 +++ trunk/lib/Frey/Run.pm 2008/11/16 14:17:18 354 @@ -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 .= ''; $html .= ''; $html .= '' foreach @{ $data->{rows} };
' . join('', @{$data->{NAME}} ) . '
' . join('', @$_ ) . '