115 |
} elsif ( $self->run eq 'sponge' ) { |
} elsif ( $self->run eq 'sponge' ) { |
116 |
my $data = $o->sponge; |
my $data = $o->sponge; |
117 |
confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH'; |
confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH'; |
118 |
|
$html .= "<strong>" . $#{ $data->{rows} } . "</strong> rows from <code>$class->new" . dump( $self->params ) . "->sponge</code>"; |
119 |
$html .= '<table>'; |
$html .= '<table>'; |
120 |
$html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>'; |
$html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>'; |
121 |
$html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} }; |
$html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} }; |
132 |
$html .= $self->error( $@ ) if $@; |
$html .= $self->error( $@ ) if $@; |
133 |
} |
} |
134 |
|
|
135 |
|
return $self->page( %$html ) if ref($html) eq 'HASH'; |
136 |
return $self->page( title => $class, body => $html ); |
return $self->page( title => $class, body => $html ); |
137 |
} |
} |
138 |
|
|