--- trunk/lib/Frey/Run.pm	2008/11/16 13:01:56	351
+++ trunk/lib/Frey/Run.pm	2008/11/16 17:50:25	363
@@ -103,41 +103,38 @@
 		}
 		$html .= qq|<input type="submit" value="Run $class"></form>|;
 	} else {
-		my $o;
-		eval { $o = $class->new( %{ $self->params } ); };
-		if ( $@ ) {
-			return $self->page( title => $class, body => $self->error( $@ ) );
-		}
-		$o->depends if $o->can('depends');
+		eval {
+			my $o;
+			$o = $class->new( %{ $self->params } );
+			$o->depends if $o->can('depends');
 
-		if ( $self->run eq 'markup' ) {
-			warn "## using ",ref($o), "->markup";
-			$html = eval { $o->markup };
-			$html .= $self->error( $@ ) if $@;
-			warn ">>> markup $class ",length( $html ), " bytes\n";
-		} elsif ( $self->run eq 'sponge' ) {
-			my $data = eval { $o->sponge };
-			if ( $@ ) {
-				$html .= $self->error( $@ );
-			} else {
+			if ( $self->run eq 'markup' ) {
+				warn "## using ",ref($o), "->markup";
+				$html = $o->markup;
+				warn ">>> markup $class ",length( $html ), " bytes\n";
+			} 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} };
 				$html .= '</table>';
-			}
-		} elsif ( $self->run eq 'data' ) {
-			my $data = eval { $o->data; };
-			if ( $@ ) {
-				$html .= $self->error( $@ );
-			} else {
+			} elsif ( $self->run eq 'data' ) {
+				my $data = $o->data;
 				$html .= Frey::Dumper->new( data => $data )->markup;
-				$html .= '<hr/><code>' . $self->html_dump( $data ) . '</code>';
+				$html .= '<hr/><span class="frey-popdown">dump<span><code>' . $self->html_dump( $data ) . '</code></span></span>';
+			} else {
+				$html = $self->error( "IGNORE: $class ", $o->dump );
 			}
-		} else {
-			$html = $self->error( "IGNORE: $class ", $o->dump );
-		}
+		};
+
+		$html .= $self->error( $@ ) if $@;
 	}
 
+	return $self->page( %$html ) if ref($html) eq 'HASH';
 	return $self->page( title => $class, body => $html );
 }