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>"; |
my $rows = $#{ $data->{rows} } + 1; |
119 |
|
$rows ||= 'no'; |
120 |
|
$html .= "<strong>$rows</strong> rows from <code>$class->new" . dump( $self->params ) . "->sponge</code>"; |
121 |
$html .= '<table>'; |
$html .= '<table>'; |
122 |
$html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>'; |
$html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>'; |
123 |
$html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} }; |
$html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} }; |