Devel::Caller - meatier versions of caller SYNOPSIS use 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' WWW: http://search.cpan.org/dist/Devel-Caller/ Generated with my own hand v1.1
Responsible Changed From-To: freebsd-ports-bugs->clsung I'll take it.
State Changed From-To: open->closed New port added. Thank You.