8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
use Frey::Dumper; |
use Frey::Dumper; |
10 |
use JSON; |
use JSON; |
11 |
|
use YAML; |
12 |
|
|
13 |
=head1 NAME |
=head1 NAME |
14 |
|
|
77 |
if ( $self->run eq 'markup' ) { |
if ( $self->run eq 'markup' ) { |
78 |
warn "## using ",ref($o), "->markup"; |
warn "## using ",ref($o), "->markup"; |
79 |
if ( $o->can('page') ) { |
if ( $o->can('page') ) { |
80 |
$html = $o->page; |
#$html = $o->page; |
81 |
$body = $o->markup unless $html; |
$body = $o->markup unless $html; |
82 |
} else { |
} else { |
83 |
$body = $o->markup; |
$body = $o->markup; |
112 |
} |
} |
113 |
|
|
114 |
# override our status with one from object |
# override our status with one from object |
115 |
$self->status( $o->status ) if $o->can('status') && $o->status; |
eval { |
116 |
|
$self->status( $o->status ); |
117 |
|
}; |
118 |
|
warn "can't override status: $@" if $@; |
119 |
}; |
}; |
120 |
|
|
121 |
|
|