NAME

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'

DEPENDENCIES

This module has external dependencies on the following modules:

PadWalker	0.08

INSTALLATION

perl Build.PL
perl Build test

and if all goes well

perl Build install

HISTORY

What changed over the last 3 revisions

0.11 Sunday 9th July, 2006

Fudge around the segfaults in 5.8.x ithreaded builds by
not looking up what the package variable is.

0.10 Wednesday 5th July, 2006

Use strlen rather than playing with SvLEN/SvCUR to determine
the length of identifiers in the pad.  It's a theoretical
segfault waiting to happen, but one that isn't tickled by the
current test suite.  Fixes failures under perl 5.8.8 as
reported by clkao.

0.09 Sunday 5th October, 2003

Split Changes out from HISTORY pod section.
Port to Module::Build
We can now determine constant values in called_with.
Partial fixes for http://rt.cpan.org/NoAuth/Bug.html?id=2878

SEE ALSO

"caller" in perlfunc, PadWalker, Devel::Peek

AUTHOR

Richard Clamp <richardc@unixbeard.net> with close reference to PadWalker by Robin Houston

COPYRIGHT

Copyright (c) 2002, 2003, 2006 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.