/ 
Safe-Caller-0.02
River stage zero No dependents
/ Safe::Caller

NAME

Safe::Caller - A nicer interface to caller() with code execution restriction

SYNOPSIS

use Safe::Caller;

$safe = Safe::Caller->new;
 
package Foo;

foo();
 
sub foo { bar() }
 
sub bar { 
    print $safe->{sub}->();
    if ($safe->called_from_sub('Foo::foo')) { do something }
}

DESCRIPTION

CONSTRUCTOR

new

$safe = Safe::Caller->new(2);

Supplying how many frames to go back while running caller() is optional. By default (if no suitable value is supplied) 2 will be assumed.

METHODS

called_from_pkg

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

$safe->called_from_pkg('main');

Returns 1 on success, 0 on failure.

called_from_file

Checks whether the current sub was called by the appropriate file.

$safe->called_from_file('foobar.pl');

Returns 1 on success, 0 on failure.

called_from_line

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

$safe->called_from_line(13);

Returns 1 on success, 0 on failure.

called_from_sub

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

$safe->called_from_sub('foo');

Returns 1 on success, 0 on failure.

SEE ALSO

caller

AUTHOR

Steven Schubiger <schubiger@cpan.org>

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