--- trunk/lib/Frey/Run.pm 2008/11/25 14:15:34 517 +++ trunk/lib/Frey/Run.pm 2008/11/25 14:58:59 518 @@ -119,7 +119,7 @@ $body .= Frey::View::Dumper->new( data => $data )->as_markup if defined $data; } - warn "# status ",dump(@status); + warn "## status from $self ",dump(@status); if ( $self->run eq 'as_markup' && $o->can('page') ) { $o->add_status($_) foreach @status; @@ -132,12 +132,15 @@ if ( ref($body) eq 'HASH' ) { $html = $self->page( %$body ); - warn "WARNING: old calling method which is depriciated"; + warn "WARNING: old calling convention with HASH which is depriciated but produced ", length($html), " bytes"; } elsif ( $body && ! $html ) { $html = $self->page( title => $self->class . ' run', body => $body ); + warn "wrap body of ",length($body), " in page with ", length($html), " bytes"; }; }; + warn "## status ", dump( map { keys %$_ } @{ $self->status } ); + $html = $self->page( title => $self->class, body => $self->error( $@ ) ) if $@; return $html;