85 |
|
|
86 |
my @status; |
my @status; |
87 |
|
|
88 |
push @status, { $self->editor( $class ) => $self->params } if $o->can('status'); |
push @status, { $self->editor( $class ) => $self->params }; |
89 |
|
|
90 |
if ( $self->run eq 'as_markup' && ! $o->can('page') ) { |
if ( $self->run eq 'as_markup' && ! $o->can('page') ) { |
91 |
warn "## using ",ref($o), "->as_markup"; |
warn "## using ",ref($o), "->as_markup"; |
121 |
|
|
122 |
warn "## status from $self ",dump(@status); |
warn "## status from $self ",dump(@status); |
123 |
|
|
124 |
if ( $self->run eq 'as_markup' && $o->can('page') ) { |
if ( $o->can('add_status') ) { |
125 |
$o->add_status($_) foreach @status; |
$o->add_status($_) foreach @status; |
126 |
|
} |
127 |
|
|
128 |
|
if ( $self->run eq 'as_markup' && $o->can('page') ) { |
129 |
$html = $o->page; |
$html = $o->page; |
130 |
warn "got ", length($html), "for page"; |
warn "got ", length($html), " for page from $o it's status is ", dump( $o->status ); |
131 |
} else { |
} else { |
132 |
$self->add_status($_) foreach @status; |
$self->add_status($_) foreach @status; |
133 |
} |
} |
142 |
}; |
}; |
143 |
}; |
}; |
144 |
|
|
145 |
warn "## status ", dump( map { keys %$_ } @{ $self->status } ); |
$self->status_parts; |
146 |
|
|
147 |
$html = $self->page( title => $self->class, body => $self->error( $@ ) ) if $@; |
$html = $self->page( title => $self->class, body => $self->error( $@ ) ) if $@; |
148 |
|
|