50 |
eval $code; |
eval $code; |
51 |
die $@ if $@; |
die $@ if $@; |
52 |
warn "# result ",ref( $result ); |
warn "# result ",ref( $result ); |
53 |
$out .= qq{<code>$part</code>} . dump( $result ) . '<hr>'; |
# $out .= qq{<span class="frey-popdown">$part<code>} . dump( $result ) . '</code><span><hr>'; |
54 |
|
$out = $result; |
55 |
$pipe = { $method => $result }; |
$pipe = { $method => $result }; |
56 |
} else { |
} else { |
57 |
die "don't know what to do with '$part' from ",$self->pipe; |
die "don't know what to do with '$part' from ",$self->pipe; |