104 |
|
|
105 |
if ( $self->run =~ m{as_markup} ) { |
if ( $self->run =~ m{as_markup} ) { |
106 |
$html = $o->page( run => $self->run ); |
$html = $o->page( run => $self->run ); |
107 |
} elsif ( $self->run =~ m{as_sponge} ) { |
} elsif ( $self->run =~ m{(.*as_sponge)} ) { |
108 |
$data = $o->as_sponge; |
$data = $o->$1; |
109 |
confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH'; |
confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH'; |
110 |
if ( $self->format eq 'html' ) { |
if ( $self->format eq 'html' ) { |
111 |
my $rows = $#{ $data->{rows} } + 1; |
my $rows = $#{ $data->{rows} } + 1; |