NAME
   Safe::Caller - A nicer interface to the built-in caller()

SYNOPSIS
    package abc;

    use Safe::Caller;

    $caller = Safe::Caller->new;

    a();

    sub a { b() }

    sub b {
        print $caller->{subroutine}->();
        if ($caller->called_from_subroutine('abc::a')) { # do stuff }
    }

DESCRIPTION
CONSTRUCTOR
 new
    $caller = Safe::Caller->new(1);

   Supplying how many frames to go back while running "caller" in perlfunc
   is optional. By default (if no suitable value is supplied) 1 will be
   assumed. The default will be shared among all method calls (accessors &
   verification routines); the accessors may optionally accept a frame as
   parameter, whereas verification routines ("called_from_*()") don't.

METHODS
 Accessors
    $caller->{package}->();
    $caller->{filename}->();
    $caller->{line}->();
    $caller->{subroutine}->();
    $caller->{hasargs}->();
    $caller->{wantarray}->();
    $caller->{evaltext}->();
    $caller->{is_require}->();
    $caller->{hints}->();
    $caller->{bitmask}->();

   See "caller" in perlfunc for the values they are supposed to return.

 called_from_package
   Checks whether the current sub was called within the appropriate
   package.

    $caller->called_from_package('main');

   Returns 1 on success, 0 on failure.

 called_from_filename
   Checks whether the current sub was called within the appropriate
   filename.

    $caller->called_from_filename('foobar.pl');

   Returns 1 on success, 0 on failure.

 called_from_line
   Checks whether the current sub was called on the appropriate line.

    $caller->called_from_line(13);

   Returns 1 on success, 0 on failure.

 called_from_subroutine
   Checks whether the current sub was called by the appropriate subroutine.

    $caller->called_from_subroutine('foo');

   Returns 1 on success, 0 on failure.

SEE ALSO
   "caller" in perlfunc, Perl6::Caller, Devel::Caller, Sub::Caller

AUTHOR
   Steven Schubiger <[email protected]>

LICENSE
   This program is free software; you may redistribute it and/or modify it
   under the same terms as Perl itself.

   See <http://www.perl.com/perl/misc/Artistic.html>

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.