view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# Common Utility Functions
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
sub _read {
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
chdir $cwd;
# import to main::
no strict 'refs';
*{'main::WriteMakefile'} = \&Write if caller(0) eq 'main';
}
# Check to see if we are currently running under CPAN.pm and/or CPANPLUS;
# if we are, then we simply let it taking care of our dependencies
sub _check_lock {
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
chdir $cwd;
# import to main::
no strict 'refs';
*{'main::WriteMakefile'} = \&Write if caller(0) eq 'main';
return (@Existing, @Missing);
}
sub _running_under {
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# Common Utility Functions
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
# Done in evals to avoid confusing Perl::MinimumVersion
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# Common Utility Functions
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
# Done in evals to avoid confusing Perl::MinimumVersion
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
chdir $cwd;
# import to main::
no strict 'refs';
*{'main::WriteMakefile'} = \&Write if caller(0) eq 'main';
return (@Existing, @Missing);
}
sub _running_under {
view release on metacpan or search on metacpan
ccstack = top_si->si_cxstack;
cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix);
}
if (cxix < 0)
return NULL;
/* caller() should not report the automatic calls to &DB::sub */
if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 &&
ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub))
count++;
if (!count--)
break;
if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) {
const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
/* We expect that ccstack[dbcxix] is CXt_SUB, anyway, the
field below is defined for any cx. */
/* caller() should not report the automatic calls to &DB::sub */
if (PL_DBsub && GvCV(PL_DBsub) && dbcxix >= 0 && ccstack[dbcxix].blk_sub.cv == GvCV(PL_DBsub))
cx = &ccstack[dbcxix];
}
return cx;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# Common Utility Functions
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
# Done in evals to avoid confusing Perl::MinimumVersion
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# Common Utility Functions
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
# Done in evals to avoid confusing Perl::MinimumVersion
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# Common Utility Functions
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
# Done in evals to avoid confusing Perl::MinimumVersion
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# Common Utility Functions
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
# Done in evals to avoid confusing Perl::MinimumVersion
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# Common Utility Functions
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
# Done in evals to avoid confusing Perl::MinimumVersion
view release on metacpan or search on metacpan
lib/Apache/ASP/Server.pm view on Meta::CPAN
}
sub RegisterCleanup {
my($self, $code) = @_;
if(ref($code) =~ /^CODE/) {
$self->{asp}{dbg} && $self->{asp}->Debug("RegisterCleanup() called", caller());
push(@{$self->{asp}{cleanup}}, $code);
} else {
$self->{asp}->Error("$code need to be a perl sub reference, see README");
}
}
view release on metacpan or search on metacpan
lib/Apache/Admin/Config.pm view on Meta::CPAN
}
sub _set_error
{
my $self = shift;
$Apache::Admin::Config::ERROR = $self->top->{__last_error__} = join('', (caller())[0].': ', @_);
return;
}
1;
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
chdir $cwd;
# import to main::
no strict 'refs';
*{'main::WriteMakefile'} = \&Write if caller(0) eq 'main';
}
# Check to see if we are currently running under CPAN.pm and/or CPANPLUS;
# if we are, then we simply let it taking care of our dependencies
sub _check_lock {
view release on metacpan or search on metacpan
inc/ExtUtils/AutoInstall.pm view on Meta::CPAN
chdir $cwd;
# import to main::
no strict 'refs';
*{'main::WriteMakefile'} = \&Write if caller(0) eq 'main';
}
# CPAN.pm is non-reentrant, so check if we're under it and have no CPANPLUS
sub _check_lock {
return unless @Missing;
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
chdir $cwd;
# import to main::
no strict 'refs';
*{'main::WriteMakefile'} = \&Write if caller(0) eq 'main';
}
# Check to see if we are currently running under CPAN.pm and/or CPANPLUS;
# if we are, then we simply let it taking care of our dependencies
sub _check_lock {
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# Common Utility Functions
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
# Done in evals to avoid confusing Perl::MinimumVersion
view release on metacpan or search on metacpan
lib/Apache/Cache.pm view on Meta::CPAN
my $pkg = shift;
my $class = ref($pkg) || $pkg;
my $options =
{
namespace => (caller())[0],
cachename => 'Default',
default_expires_in => EXPIRES_NEVER,
max_keys => undef(),
max_size => undef(),
default_lock_timeout=> undef(),
view release on metacpan or search on metacpan
lib/Apache/DBI/Cache.pm view on Meta::CPAN
my $RootClass=delete $args[3]->{RootClass};
unless( defined $RootClass ) {
# this is a very ugly hack
package # this line break should make the CPAN indexer happy
DB; # to get @DB::args set by caller()
for( my $i=1; my @l=caller($i++); ) {
if( $l[3] eq 'DBI::connect' ) {
$RootClass=$DB::args[0] unless( $DB::args[0] eq 'DBI' );
last;
}
}
view release on metacpan or search on metacpan
FakeCookie.pm view on Meta::CPAN
$cook .= ($cook{-secure}) ? '; secure' : '';
}
### helpers
sub do_this {
(caller(1))[3] =~ /[^:]+$/;
splice(@_,1,0,'-'.$&);
goto &cookie_item;
}
# get or set a named item in cookie hash
sub cookie_item {
view release on metacpan or search on metacpan
lib/Apache/JAF.pm view on Meta::CPAN
# Load handlers and temlates during compile-time...
################################################################################
sub import {
my ($package, %args) = @_;
$package = (caller())[0];
load_handlers(undef, $package, $args{handlers}) if $args{handlers};
load_templates(undef, $package, $args{templates}) if $args{templates};
}
# Load handlers
view release on metacpan or search on metacpan
lib/Apache/ErrorReport.pm view on Meta::CPAN
# Special handing for derived Error.pm classes
$stacktrace = $E->stacktrace;
} else {
# $stacktrace = "$E\n";
# my $i = 0;
# while (my ($package, $filename, $line, $subr) = caller($i)){
# $stacktrace .= "stack $i: $package $subr line $line\n";
# $i++;
# }
$stacktrace = Carp::longmess($E);
}
view release on metacpan or search on metacpan
lib/Apache/SPARQL.pm view on Meta::CPAN
};
sub _nometh {
my ($class, $ap, $field) = @_;
my $caller = (caller(1))[3];
$caller =~ s/.*:://;
$ap->log()->error(sprintf("package %s does not define a '%s' method", $class, $caller));
return 0;
view release on metacpan or search on metacpan
if ( $@ ) { # whoops, there was an error
warn( $@ ); # require'ing $class; perhaps
return; # it doesn't exist?
}
if ( ( caller(1) )[3] eq '(eval)' && defined $_[1]) { # The assumption is
my $object = $_[0]->TIEHASH( $_[1..$#_] ); # that you are checking
$object->DESTROY(); # to see if a session
} # exists.
bless [@_], $class; # remember real args
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$self->{admin}->init;
@_ = ($class, _self => $self);
goto &{"$self->{name}::import"};
}
*{caller(0) . "::AUTOLOAD"} = $self->autoload;
# Unregister loader and worker packages so subdirs can use them again
delete $INC{"$self->{file}"};
delete $INC{"$self->{path}.pm"};
}
view release on metacpan or search on metacpan
lib/Apache/SharedMem.pm view on Meta::CPAN
my $options = $self->{options} =
{
rootname => undef, # obsolete, use rootkey instead
rootkey => undef, # if not spécified, take the rootname value if exists or _get_rootkey()
namespace => (caller())[0],
ipc_mode => IPC_MODE,
ipc_segment_size => IPC_SEGSIZE,
readonly => 0,
debug => 0,
};
lib/Apache/SharedMem.pm view on Meta::CPAN
sub _debug
{
return() unless($_[0]->{options}->{debug});
my $self = shift;
my $dblvl = defined($_[0]) && $_[0] =~ /^\d$/ ? shift : 1;
printf(STDERR "### DEBUG %s method(%s) pid[%s]: %s\n", (caller())[0], (split(/::/, (caller(1))[3]))[-1], $$, join('', @_)) if($self->{options}->{debug} >= $dblvl);
}
sub _set_error
{
my $self = shift;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# Common Utility Functions
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
# Done in evals to avoid confusing Perl::MinimumVersion
view release on metacpan or search on metacpan
lib/Apache/TestConfig.pm view on Meta::CPAN
sub calls_trace {
my $frame = 1;
my $trace = '';
while (1) {
my($package, $filename, $line) = caller($frame);
last unless $filename;
$trace .= sprintf "%02d: %s:%d\n", $frame, $filename, $line;
$frame++;
}
view release on metacpan or search on metacpan
lib/Apache/TieBucketBrigade.pm view on Meta::CPAN
sub {
if (@_ == 1) {
#ignore selecting filehandle
my $sh = shift;
unless (ref($sh)) {
my $caller = caller();
$sh = \*{$caller .'::'. $sh};
}
return CORE::select();
}
elsif (@_ == 4) {