in reply to Getting code-ref of anonymous caller

Well there is at least an XS module to do the job

see Devel::Caller

caller_cv($level) caller_cv gives you the coderef of the subroutine being invoked at + the call frame indicated by the value of $level

Tested and working!

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery