view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# 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
lib/Acme/RightSideOutObject.pm view on Meta::CPAN
use PadWalker;
use B;
use Scalar::Util;
sub import {
*{caller().'::guts'} = sub {
my $their_self = shift;
my $weaken = grep $_ eq 'weaken', @_;
my $debug = grep $_ eq 'debug', @_;
my $id = Class::InsideOut::id($their_self) or die;
my $class = ref $their_self;
view release on metacpan or search on metacpan
lib/icrosoft/Word.pm view on Meta::CPAN
$icrosoft::Word::VERSION = '0.002';
}
package main;
use strict;
use Acme::RunDoc;
if ([caller(0)]->[3] > 0)
{
Carp::croak("Usage: perl -Microsoft::Word somefile.doc");
}
exit( Acme::RunDoc->do($0) );
__FILE__
view release on metacpan or search on metacpan
lib/Acme/SafetyGoggles.pm view on Meta::CPAN
print DIAG "A::SG::CHECK\n";
&apply_safety_goggles;
}
BEGIN {
our @caller = caller(2);
# caller(0) and caller(1) both refer to this BEGIN block
print DIAG "A::SG::BEGIN => @caller[0..2]\n";
}
FILTER {
print DIAG "A::SG::FILTER\n";
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
@found;
}
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
1;
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
sub log_warn {
# Try to make our call stack invisible
shift;
if (@_ and $_[-1] !~ /\n$/) {
my (undef, $file, $line) = caller();
warn @_, " at $file line $line.\n";
} else {
warn @_;
}
}
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
#####################################################################
# 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/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
lib/Acme/Teddy.pm view on Meta::CPAN
# so you need to define stuff to export it.
#
sub import {
my $pkg = shift;
my @imports = @_; # anything you like, baby
my $callpkg = caller(1);
my $type ;
my $sym ;
### $callpkg
### $pkg
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@found;
}
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
1;
view release on metacpan or search on metacpan
lib/Acme/Test/Weather.pm view on Meta::CPAN
sub _export_to_level
{
my $pkg = shift;
my $level = shift;
(undef) = shift; # redundant arg
my $callpkg = caller($level);
$pkg->export($callpkg, @_);
}
=head1 VERSION
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/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
@found;
}
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
1;
view release on metacpan or search on metacpan
lib/Acme/Time/FooClock.pm view on Meta::CPAN
# sub time {{{
sub time {
my $time = shift;
my $class =caller();
my $times;
{
no strict 'refs';
$times = ${ $class . '::times' };
view release on metacpan or search on metacpan
=cut
our %Eta;
our $Eta_forgetfulness=2;
sub eta {
my($id,$pos,$end,$time_fp)=( @_==2 ? (join(";",caller()),@_) : @_ );
$time_fp||=time_fp();
my $a=$Eta{$id}||=[];
push @$a, [$pos,$time_fp];
@$a=@$a[map$_*2,0..@$a/2] if @$a>40; #hm 40
splice(@$a,-2,1) if @$a>1 and $$a[-2][0]==$$a[-1][0]; #same pos as last
}
my %thr;
sub throttle {
my($times,$mintime,$what)=@_;
$what||=join(":",@{[caller(1)]}[3,2]);
$thr{$what}||=[];
my $thr=$thr{$what};
push @$thr,time_fp();
return if @$thr<$times;
my $since=$$thr[-1]-shift(@$thr);
(Every 80th or whatever C<$Acme::Tools::Dserialize_width> contains)
=cut
our $Dserialize_width=80;
sub _kallstack { my $tilbake=shift||0; my @c; my $ret; $ret.=serialize(\@c,"caller$tilbake") while @c=caller(++$tilbake); $ret }
sub dserialize{join "\n",serialize(@_)=~/(.{1,$Dserialize_width})/gs}
sub serialize {
no warnings;
my($r,$name,$filename,$level)=@_;
my @r=(undef,undef,($level||0)-1);
return '\*STDERR'
}
else{
my $tilbake;
my($pakke,$fil,$line,$sub,$hasargs,$wantarray);
($pakke,$fil,$line,$sub,$hasargs,$wantarray)=caller($tilbake++) until $sub ne 'serialize' || $tilbake>20;
croak("serialize() argument should be reference!\n".
"\$r=$r\n".
"ref(\$r) = ".ref($r)."\n".
"ref(\$\$r) = ".ref($$r)."\n".
"kallstack:\n". _kallstack());
}
=cut
sub recursed {(caller(1))[3] eq (caller(2))[3]?1:0}
=head2 ed
=cut
our %Changed_lastval;
sub changed {
my $now=join($;,@_);
my $key=join($;,caller());
my $e=exists $Changed_lastval{$key};
if($e){
my $last=$Changed_lastval{$key};
return 0 if defined $last and defined $now and $last eq $now
or !defined $last and !defined $now;
view release on metacpan or search on metacpan
lib/Acme/Undead.pm view on Meta::CPAN
$IS_UNDEAD = 0;
}
sub _die {
my $class = shift;
my $hinthash = (caller(0))[10];
return $hinthash->{acme_undead} ? undef : die(shift);
}
sub _sleep {
my $hinthash = (caller(0))[10];
return $hinthash->{acme_undead} ? undef : sleep(shift);
}
sub _bless {
my $hinthash = (caller(0))[10];
return $hinthash->{acme_undead} ? die('blessed') : do {
my $arg = shift;
my $pkg = shift || (caller(0))[0];
bless($arg, $pkg);
}
}
sub END {
view release on metacpan or search on metacpan
lib/Acme/UseStrict.pm view on Meta::CPAN
}
sub in_effect
{
my $level = $_[0] // 0;
my $hinthash = (caller($level))[10];
return $hinthash->{+__PACKAGE__};
}
'use strict constantly';
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/Acme/VerySign.pm view on Meta::CPAN
sub import
{
my $class = shift;
# work out who called us
my $pkg = caller(0);
# turn off refs while we write to another package namespace
no strict "refs";
####################################################################
view release on metacpan or search on metacpan
$VERSION = '0.02';
sub import {
my $class = shift;
my $pkg = caller(0);
my @void = qw(void);
push @void, qw(empty nil noop nothing null)
if scalar grep { $_ eq ':all' } @_;
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/Acme/Warn/LOLCAT.pm view on Meta::CPAN
no warnings 'redefine';
*CORE::GLOBAL::warn =
$main::SIG{__WARN__} = sub{
my $message = shift || "Warning: something's wrong";
my (undef, $file, $line) = caller(0);
$message .= " at $file line $line\n" unless ($message =~ /\n$/);
$message = translate($message);
$message =~ s/\n\. KTHXBYE!//g;
$message =~ s/\n\. KTHX.//g;
view release on metacpan or search on metacpan
lib/Acme/What.pm view on Meta::CPAN
sub _do
{
no strict 'refs';
my ($self, @args) = @_;
my @caller = caller(1);
my $meth = $caller[10]{ (__PACKAGE__) };
if (not defined $meth) {
require Carp;
view release on metacpan or search on metacpan
lib/Win32/PEPM.pm view on Meta::CPAN
our $VERSION = '0.02';
#stolen from XSLoader, unneeded on Win32 fluff removed
sub load {
#we only load the caller .pm, this is not negotiable
my $module = (caller())[0];
my $bootname = "boot_$module";
$bootname =~ s/\W/_/g;
my $file = shift;
my $libref = DynaLoader::dl_load_file($file, 0) or do {
require Carp;
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/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
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;
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
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
@found;
}
sub _caller {
my $depth = 0;
my $call = caller($depth);
while ( $call eq __PACKAGE__ ) {
$depth++;
$call = caller($depth);
}
return $call;
}
1;
view release on metacpan or search on metacpan
sub crum { $crum }
sub import {
my $me = shift;
my @user = caller();
my $used_me = $user[1];
$cursor = Cwd::abs_path($used_me);
my %args = ();