--- trunk/lib/Frey/Run.pm 2008/11/25 00:26:15 507 +++ trunk/lib/Frey/Run.pm 2008/11/25 17:15:18 519 @@ -85,7 +85,7 @@ my @status; - push @status, { $self->editor( $class ) => $self->params } if $o->can('status'); + push @status, { $self->editor( $class ) => $self->params }; if ( $self->run eq 'as_markup' && ! $o->can('page') ) { warn "## using ",ref($o), "->as_markup"; @@ -119,23 +119,31 @@ $body .= Frey::View::Dumper->new( data => $data )->as_markup if defined $data; } - if ( $self->run eq 'as_markup' && $o->can('page') ) { + warn "## status from $self ",dump(@status); + + if ( $o->can('add_status') ) { $o->add_status($_) foreach @status; - $html = $o->page if $o->can('page') && - warn "got ", length($html), "for page"; } - $self->add_status($_) foreach @status; + if ( $self->run eq 'as_markup' && $o->can('page') ) { + $html = $o->page; + warn "got ", length($html), " for page from $o it's status is ", dump( $o->status ); + } else { + $self->add_status($_) foreach @status; + } }; 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"; }; }; + $self->status_parts; + $html = $self->page( title => $self->class, body => $self->error( $@ ) ) if $@; return $html;