--- trunk/lib/Frey/Run.pm	2008/11/16 14:07:13	353
+++ trunk/lib/Frey/Run.pm	2008/11/16 17:20:26	361
@@ -115,6 +115,9 @@
 			} elsif ( $self->run eq 'sponge' ) {
 				my $data = $o->sponge;
 				confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH';
+				my $rows = $#{ $data->{rows} } + 1;
+				$rows ||= 'no';
+				$html .= "<strong>$rows</strong> rows from <code>$class->new" . dump( $self->params ) . "->sponge</code>";
 				$html .= '<table>';
 				$html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>';
 				$html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} };
@@ -131,6 +134,7 @@
 		$html .= $self->error( $@ ) if $@;
 	}
 
+	return $self->page( %$html ) if ref($html) eq 'HASH';
 	return $self->page( title => $class, body => $html );
 }