Did you try it? This is the trick Devel::StackTrace uses.

Why yes, in fact I did try it. I got undef every time, for many variations of your code... It seems you're 100% right, but I couldn't get it to work without copying D::ST directly like this:

sub calling_object {
 my @a = do { package DB; @DB::args = (); caller(2); };

 $DB::args[0];
}
[download]

It definitely doesn't work for me the way you had it.

Oh, I got it. After much fiddling, it's the scalar context. The trick does not work when you $foo=caller(2); Must be ($foo) = caller(2); or caller() doesn't populate args. I can't tell if you changed it to @foo or if I transcribed it wrong, but my original cut and paste had $foo = caller(2).

Also, in my previous post, I had assumed $DB::args was pure black magic. I had no idea it was documented grey magic.

-Paul

I pulled it right out of SUPER, which is why it had list context correct but was missing the package declaration, as I never thought to put it in a block. Clever trick.