mirror of https://git.FreeBSD.org/ports.git
12 lines
287 B
Plaintext
12 lines
287 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'
|