| 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; |
Parent Directory
| 
Revision Log
| 
Patch