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.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

0.08 2003-03-28

Added caller_vars as a synonym for called_with
Added caller_args

0.07 2002-11-21

Fix to called_as_method from Rafael Garcia-Suarez to handle
$foo->$method() calls.

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, 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.