mirror of
https://git.FreeBSD.org/ports.git
synced 2024-12-20 04:02:27 +00:00
14 lines
335 B
Plaintext
14 lines
335 B
Plaintext
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/
|