in reply to Getting code-ref of anonymous caller
Well there is at least an XS module to do the job
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!
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery