view release on metacpan or search on metacpan
lib/BerkeleyDB/Easy/Error.pm view on Meta::CPAN
code => (int $error || int BDB_UNKNOWN),
);
# Populate package, file, line and sub attributes.
# If VERBOSE, get a full stack trace.
my $caller = $self->_caller(SKIP);
$exc{$_} = $caller->{$_} for qw(package file line sub);
$exc{trace} = BDB_VERBOSE
? $self->_carp
: qq(at $exc{file} line $exc{line}.);
lib/BerkeleyDB/Easy/Error.pm view on Meta::CPAN
sub _const {
my ($self, $name) = @_;
DEBUG and $self->_debug(qq(Resolving constant: $name));
my $caller = $self->_caller(SKIP)->{package};
my $fullname = qq(&$caller\::$name);
# Resolve the name to a coderef. Look in our caller, this module,
# BerkeleyDB, and Errno, in that order.
my $func = $caller->can($name)
view release on metacpan or search on metacpan
BerkeleyDB.pm view on Meta::CPAN
{
my ($default, @rest) = @_ ;
my (%got) = %$default ;
my (@Bad) ;
my ($key, $value) ;
my $sub = (caller(1))[3] ;
my %options = () ;
local ($Carp::CarpLevel) = 1 ;
# allow the options to be passed as a hash reference or
# as the complete hash.
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
lib/Bible/OBML.pm view on Meta::CPAN
return "<obml>$obml</obml>";
}
sub _accessor ( $self, $input = undef ) {
my $want = ( split( '::', ( caller(1) )[3] ) )[-1];
if ($input) {
if ( ref $input ) {
my $data_refs_ocd;
$data_refs_ocd = sub ($node) {
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
lib/Ebig5.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5.pm view on Meta::CPAN
#
# instead of Carp::carp
#
sub carp {
my($package,$filename,$line) = caller(1);
print STDERR "@_ at $filename line $line.\n";
}
#
# instead of Carp::croak
#
sub croak {
my($package,$filename,$line) = caller(1);
print STDERR "@_ at $filename line $line.\n";
die "\n";
}
#
# instead of Carp::cluck
#
sub cluck {
my $i = 0;
my @cluck = ();
while (my($package,$filename,$line,$subroutine) = caller($i)) {
push @cluck, "[$i] $filename($line) $package::$subroutine\n";
$i++;
}
print STDERR CORE::reverse @cluck;
print STDERR "\n";
lib/Ebig5.pm view on Meta::CPAN
# instead of Carp::confess
#
sub confess {
my $i = 0;
my @confess = ();
while (my($package,$filename,$line,$subroutine) = caller($i)) {
push @confess, "[$i] $filename($line) $package::$subroutine\n";
$i++;
}
print STDERR CORE::reverse @confess;
print STDERR "\n";
view release on metacpan or search on metacpan
lib/Ebig5hkscs.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5hkscs.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5hkscs.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5hkscs.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5hkscs.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5hkscs.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5hkscs.pm view on Meta::CPAN
$modifier ||= '';
$modifier =~ tr/p//d;
if ($modifier =~ /([adlu])/oxms) {
my $line = 0;
for (my $i=0; my($package,$filename,$use_line,$subroutine) = caller($i); $i++) {
if ($filename ne __FILE__) {
$line = $use_line + (CORE::substr($_,0,pos($_)) =~ tr/\n//) + 1;
last;
}
}
lib/Ebig5hkscs.pm view on Meta::CPAN
#
# instead of Carp::carp
#
sub carp {
my($package,$filename,$line) = caller(1);
print STDERR "@_ at $filename line $line.\n";
}
#
# instead of Carp::croak
#
sub croak {
my($package,$filename,$line) = caller(1);
print STDERR "@_ at $filename line $line.\n";
die "\n";
}
#
# instead of Carp::cluck
#
sub cluck {
my $i = 0;
my @cluck = ();
while (my($package,$filename,$line,$subroutine) = caller($i)) {
push @cluck, "[$i] $filename($line) $package::$subroutine\n";
$i++;
}
print STDERR CORE::reverse @cluck;
print STDERR "\n";
lib/Ebig5hkscs.pm view on Meta::CPAN
# instead of Carp::confess
#
sub confess {
my $i = 0;
my @confess = ();
while (my($package,$filename,$line,$subroutine) = caller($i)) {
push @confess, "[$i] $filename($line) $package::$subroutine\n";
$i++;
}
print STDERR CORE::reverse @confess;
print STDERR "\n";
view release on metacpan or search on metacpan
lib/Bigtop/Parser.pm view on Meta::CPAN
#---------------------------------------------------------------------
sub add_valid_keywords {
my $class = shift;
my $type = shift;
my $caller = caller( 0 );
my %callers;
KEYWORD:
foreach my $statement ( @_ ) {
view release on metacpan or search on metacpan
lib/Binance/API/Logger.pm view on Meta::CPAN
return if $level eq 'DESTROY';
my $message = shift || "";
my $sub = (caller(1))[3];
my $full_message = "[$sub] ". $message;
if ($level eq 'debug' || $level eq 'trace') {
carp $full_message if DEBUG;
} else {
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
bin/selex_clustal2stockholm.pl view on Meta::CPAN
my $usage = "\nUsage: $0 <ClustalW file> [gc_file]
Converts a ClustalW file (from file or STDIN) to Stockholm format.
Only converts sequence information, unless a secondary structure
file is given as the second argument.\n";
main(@ARGV) unless caller();
sub main {
my @cmd_line_args = @_;
my @argv;
my $gc_string;
view release on metacpan or search on metacpan
lib/Bio/Biblio/BiblioBase.pm view on Meta::CPAN
my ($self, $given_type, $expected_type, $method) = @_;
my $msg = 'In method ';
if (defined $method) {
$msg .= $method;
} else {
$msg .= (caller(1))[3];
}
return ("$msg: Trying to set a value of type '$given_type' but '$expected_type' is expected.");
}
view release on metacpan or search on metacpan
lib/Bio/Community/Member.pm view on Meta::CPAN
# Assign a new ID
#$self->id( PREFIX.$max_num++ ); # warns because of call to _register_id
$self->{id} = PREFIX.++$max_num
} else {
# Validate ID
if ( ($id =~ $id_re) && ((caller(0))[0] !~ $mod_re) && ((caller(1))[0] !~ $mod_re) ) {
# Check validity of 'bcXX' IDs not requested by Bio::Community* modules
my $num = $1;
if ($num > $max_num) {
$max_num = $num;
} else {
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/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
bin/bp_genbank_ref_extractor view on Meta::CPAN
$level = 1 + $_[0];
} else {
die "Bug found when calculating level for caller function. Please report.";
}
my $deeper = shift;
return "by " . (caller($level))[3] . " at line " . (caller($level))[2];
}
sub file_extension_for {
## TODO in some cases, extension changes whether it's protein or DNA or whatever
view release on metacpan or search on metacpan
lib/Bio/EnsEMBL/Utils/Exception.pm view on Meta::CPAN
while ( @path && $i < 2 ) {
$i++;
$file = pop(@path) . "/$file";
}
@caller = caller(1);
my $caller_line;
my $caller_file;
$i = 0;
if (@caller) {
@path = split( /\//, $caller[1] );
lib/Bio/EnsEMBL/Utils/Exception.pm view on Meta::CPAN
=head2 stack_trace
Arg [1] : none
Example : use Bio::EnsEMBL::Utils::Exception qw(stack_trace)
Description: Gives an array to a reference of arrays with stack trace info
each coming from the caller(stack_number) call
Returntype : array of listrefs of strings
Exceptions : none
Caller : general, stack_trace_dump()
=cut
sub stack_trace {
my $i = 0;
my @out;
my $prev;
while ( my @call = caller($i++)) {
# major annoyance that caller puts caller context as
# function name. Hence some monkeying around...
$prev->[3] = $call[3];
push(@out,$prev);
lib/Bio/EnsEMBL/Utils/Exception.pm view on Meta::CPAN
$level = $DEFAULT_DEPRECATE if(!defined($level));
return if($VERBOSITY < $level);
my @caller = caller(1);
my $subname = $caller[3] ;
my $line = $caller[2];
#use only 2 subdirs for brevity when reporting the filename
my $file;
view release on metacpan or search on metacpan
lib/Bio/FdrFet.pm view on Meta::CPAN
=cut
sub new {
my $pkg;
my $class = shift;
eval {($pkg) = caller(0);};
if ($class ne $pkg) {
unshift @_, $class;
}
my $self = {};
bless $self;
view release on metacpan or search on metacpan
lib/Bio/GMOD/Blast/Graph/MyDebug.pm view on Meta::CPAN
sub debugP
{
my( $flag ) = shift;
my( $pkg, $file, $line ) = caller();
$pkgOn{ $pkg } = $flag;
}
# concatenates with " ".
sub dmsg
{
my( @msg ) = @_;
my( $flag );
( $pkg, $file, $line ) = caller();
$flag = $pkgOn{ $pkg };
if( !defined($flag) || $flag != 0 )
{
lib/Bio/GMOD/Blast/Graph/MyDebug.pm view on Meta::CPAN
sub dmsgs
{
my( @msg ) = @_;
my( $flag );
( $pkg, $file, $line ) = caller();
$flag = $pkgOn{ $pkg };
if( !defined($flag) || $flag != 0 )
{
view release on metacpan or search on metacpan
# Can't use Carp because it might cause use_ok() to accidentally succeed
# even though the module being used forgot to use Carp. Yes, this
# actually happened.
sub _carp {
my($file, $line) = (caller(1))[1,2];
warn @_, " at $file line $line\n";
}
sub _export_to_level
{
my $pkg = shift;
my $level = shift;
(undef) = shift; # redundant arg
my $callpkg = caller($level);
$pkg->export($callpkg, @_);
}
=head1 NAME
view release on metacpan or search on metacpan
DBUtils/DBUtils.pm.in view on Meta::CPAN
my $dbh = shift;
return if ref($dbh) && $dbh->isa('Bio::Genex::Connect');
# Oops, someone blew it, give them a useful error message
# first figure out who called us
my @caller = caller(1);
my $subroutine = $caller[3];
if (ref($dbh) && $dbh->isa('DBI::db')) {
croak "Invalid DB handle. Cannot use DBI::connect()\nto create a DB handle for $subroutine,\nmust create DB handle using Bio::Genex::current_connection() or Bio::Genex::_connect()";
} else {
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
lib/Bio/Kmer.pm view on Meta::CPAN
our $enqueueStick :shared; # Helps control access to the kmer queue
# TODO if 'die' is imported by a script, redefine
# sig die in that script as this function.
local $SIG{'__DIE__'} = sub { my $e = $_[0]; $e =~ s/(at [^\s]+? line \d+\.$)/\nStopped $1/; die("$0: ".(caller(1))[3].": ".$e); };
my $startTime = time();
sub logmsg{
local $0 = basename $0;
my $tid = 0;
view release on metacpan or search on metacpan
MAGE/XML/Handler/ObjectHandlerI.pm view on Meta::CPAN
our $VERSION = '0.99';
sub new {
my $pack = shift;
my $self = bless {}, $pack;
$self->throw_not_implemented("new not defined for ".ref(caller()));
}
sub handle {
my $self = shift;
$self->throw_not_implemented("handle not defined for ".ref(caller()));
}
1;
__END__
view release on metacpan or search on metacpan
MAGE/Base.pm view on Meta::CPAN
=cut
sub throw {
my ($self, $msg) = @_;
die(caller().': '.$msg);
}
=item throw_not_implemented
Title : throw_not_implemented
MAGE/Base.pm view on Meta::CPAN
=cut
sub throw_not_implemented {
my ($self) = @_;
die("Abstract method ".caller()." implementing class did not provide method");
}
=back
=head1 BUGS
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
$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
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/Bio/Metabolic/MatrixOps.pm view on Meta::CPAN
sub PDL::Matrix::invert {
my $matrix = shift->copy;
# print "ref(matrix) is ".ref($matrix)."\n";
# my ($pkg,$file,$line)=caller();
my @dims = $matrix->dims;
if ( $dims[0] != $dims[1] ) {
croak("Inverse for non-square matrix not defined!\n");
view release on metacpan or search on metacpan
lib/Bio/NEXUS/Util/Exceptions.pm view on Meta::CPAN
my $class = shift;
my $self = [];
my $i = 0;
my $j = 0;
package DB; # to get @_ stack from previous frames, see perldoc -f caller
while( my @frame = caller($i) ) {
my $package = $frame[0];
if ( not Bio::NEXUS::Util::StackTrace::_skip_me( $package ) ) {
my @args = @DB::args;
$self->[$j++] = [ @frame, @args ];
}