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; |
151 |
my $o = Frey->new; |
my $o = Frey->new; |
152 |
$o->{request_url} = $self->request_url; # sigh, this is dynamic languge, right? |
$o->{request_url} = $self->request_url; # sigh, this is dynamic languge, right? |
153 |
Frey::Web->meta->apply( $o ); |
Frey::Web->meta->apply( $o ); |
154 |
$html = $o->page( body => $self->error( $error ) ); |
$html = $o->page( body => $self->error( $error, undef ) ); |
155 |
} |
} |
156 |
|
|
157 |
warn $self->class, " produced ", length($html), " bytes of ", $self->content_type; |
warn $self->class, " produced ", length($html), " bytes of ", $self->content_type; |