107 |
if ( $o->can('markup') ) { |
if ( $o->can('markup') ) { |
108 |
warn "## using ",ref($o), "->markup"; |
warn "## using ",ref($o), "->markup"; |
109 |
$html = eval { $o->markup }; |
$html = eval { $o->markup }; |
110 |
if ( $@ ) { |
$html .= $self->error( $@ ) if $@; |
|
warn $@; |
|
|
$html .= qq{<code>$@</code>}; |
|
|
} |
|
111 |
warn ">>> markup $class ",length( $html ), " bytes\n"; |
warn ">>> markup $class ",length( $html ), " bytes\n"; |
112 |
} elsif ( $o->can('sponge') ) { |
} elsif ( $o->can('sponge') ) { |
113 |
my $data = $o->sponge; |
my $data = $o->sponge; |