Simon Cozens wrote:
Randal L. Schwartz:
"Michael" == Michael G Schwern <[EMAIL PROTECTED]> writes:
Michael> Using B::Deparse you can get the source of any running subroutine.
Nope, I've given examples of subroutines that cannot currently be
accurately deparsed.
Oh no! You mean it'll only work in non-pathological cases? That's no good!
So any code that uses closures is pathological?
--
sub'_{q} tsuJ}}_();sub's{seek+DATA,0,0}sub'p{print&_}sub'r{reverse$_[0]}
@_=(('')x2,split" ",<DATA>);s!!&s,$_=<DATA>;s/}.*?}/$_[$s+1]/
if$s;s/(}.*?})/r$1/e;eval$_;p,$s++!efor@_[0..3];
__DATA__
} rehtona} } lreP} },rekcah}
