![]() |
![]()
| ![]() |
![]()
NAMEDevel::Caller - meatier versions of "caller" SYNOPSISuse Devel::Caller qw(caller_cv); $foo = sub { print "huzzah\n" if $foo == caller_cv(0) }; $foo->(); # prints huzzah use Devel::Caller qw(called_with); sub foo { print called_with(0,1); } foo( my @foo ); # should print '@foo' DESCRIPTION
BUGSAll of these routines are susceptible to the same limitations as "caller" as described in "caller" in perlfunc The deparsing of the optree performed by called_with is fairly simple-minded and so a bit flaky.
SEE ALSO"caller" in perlfunc, PadWalker, Devel::Peek AUTHORRichard Clamp <richardc@unixbeard.net> with close reference to PadWalker by Robin Houston COPYRIGHTCopyright (c) 2002, 2003, 2006, 2007, 2008, 2010, 2013, 2023 Richard Clamp. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
|