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
In Section
Seekers of Perl Wisdom