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.