106 |
$body .= '</table>'; |
$body .= '</table>'; |
107 |
} |
} |
108 |
} elsif ( $self->run =~ m{as_data} ) { |
} elsif ( $self->run =~ m{as_data} ) { |
109 |
$data = $o->{$self->run}(); |
my $run = $self->run; |
110 |
warn "no data from ", $self->run; |
$data = $o->$run; |
111 |
$data ||= $o->as_data(); |
confess "no data for $class->$run" unless defined $data; |
|
confess "no data for $class->" . $self->run . " from " . $self->html_dump( $data ) unless $data; |
|
112 |
$self->add_status( { $self->run => $data } ); |
$self->add_status( { $self->run => $data } ); |
113 |
} else { |
} else { |
114 |
$body = $self->error( "IGNORE: $class ", $o->dump ); |
$body = $self->error( "IGNORE: $class ", $o->dump ); |
123 |
$body .= Frey::View::Dumper->new( data => $data )->as_markup if defined $data; |
$body .= Frey::View::Dumper->new( data => $data )->as_markup if defined $data; |
124 |
} |
} |
125 |
|
|
126 |
$self->title( $class ); |
$o->title( $class ); |
127 |
|
|
128 |
$html = $o->page( body => $body ) if $body && !$html; |
$html = $o->page( body => $body ) if $body && !$html; |
129 |
|
|
135 |
$self->status_parts; |
$self->status_parts; |
136 |
|
|
137 |
if ( $@ ) { |
if ( $@ ) { |
138 |
|
my $error = $@; |
139 |
my $o = Frey->new; |
my $o = Frey->new; |
140 |
Frey::Web->meta->apply( $o ); |
Frey::Web->meta->apply( $o ); |
141 |
$html = $o->page( body => $self->error( $@ ) ); |
$html = $o->page( body => $self->error( $error ) ); |
142 |
} |
} |
143 |
|
|
144 |
warn $self->class, " produced ", length($html), " bytes"; |
warn $self->class, " produced ", length($html), " bytes"; |