view release on metacpan or search on metacpan
t/7_template_00_base.t view on Meta::CPAN
my $test = shift;
my $vars = shift || {};
my $conf = local $vars->{'tt_config'} = $vars->{'tt_config'} || [];
my $obj = shift || $module->new(@$conf); # new object each time
my $out = '';
my $line = (caller)[2];
delete $vars->{'tt_config'};
$obj->process(\$str, $vars, \$out);
my $ok = ref($test) ? $out =~ $test : $out eq $test;
if ($ok) {
view release on metacpan or search on metacpan
lib/CGI/FormMagick.pm view on Meta::CPAN
$self->{lc($_)} = 1;
}
}
#$self->{sessiondir} = initialise_sessiondir($args{SESSIONDIR});
$self->{calling_package} = (caller)[0];
$self->{fallback_language} = undef;
return $self;
}
view release on metacpan or search on metacpan
lib/CGI/Framework.pm view on Meta::CPAN
#
# An alias to new(), to be used in nooop mode
#
sub initialize_cgi_framework {
my %para = ref($_[0]) eq "HASH" ? %{ $_[0] } : @_;
$para{callbacks_namespace} ||= (caller)[0] || "main";
return new("CGI::Framework", \%para);
}
#
# The constructor. Initializes pretty much everything, returns a new bless()ed instance
lib/CGI/Framework.pm view on Meta::CPAN
#
# We set some defaults if unsupplied
#
$para{valid_languages} ||= [];
$para{callbacks_namespace} ||= (caller)[0] || "main";
if (!$para{cookie_name}) {
$para{cookie_name} = "sessionid_$ENV{SCRIPT_NAME}";
$para{cookie_name} =~ s/[^0-9a-z]//gi;
}
if (!$para{sessions_mysql_dbh} && !$para{sessions_dir}) {
view release on metacpan or search on metacpan
lib/CGI/Info.pm view on Meta::CPAN
}
sub _find_paths {
my $self = shift;
if(!UNIVERSAL::isa((caller)[0], __PACKAGE__)) {
Carp::croak('Illegal Operation: This method can only be called by a subclass or ourself');
}
$self->_trace(__PACKAGE__ . ': entering _find_paths');
lib/CGI/Info.pm view on Meta::CPAN
# Allow the AUTOLOAD feature to be disabled
Carp::croak(__PACKAGE__, ": Unknown method $method") if(exists($self->{'auto_load'}) && boolean($self->{'auto_load'})->isFalse());
# Ensure the method is called on the correct package object or a subclass
return unless((ref($self) eq __PACKAGE__) || (UNIVERSAL::isa((caller)[0], __PACKAGE__)));
# Delegate to the param method
return $self->param($method);
}
view release on metacpan or search on metacpan
SecureState.pm view on Meta::CPAN
if (defined $args{'-mindSet'}) {
$cgi->{'.isforgetful'} = 0 if ($args{'-mindSet'} =~ /unforgetful/i);
} elsif ($NASTY_WARNINGS) {
warn "Programmer did not set mindset when declaring new CGI::SecureState object at ",
(caller)[1], " line ", (caller)[2], ". Please tell him/her to read the new CGI::SecureState ",
"documentation.\n";
}
#Set up long-term memory
$args{'-memory'} ||= $args{'-longTerm'} || $args{'-longterm'} || [];
view release on metacpan or search on metacpan
return $self;
}
sub import {
my $exportset = $_[1];
my $to_package = ((caller)[0]);
my $code = '';
return unless $exportset;
if ($exportset eq ':html' or $exportset eq ':standard') {
view release on metacpan or search on metacpan
lib/CLI/Helpers.pm view on Meta::CPAN
# Smarter handling of debug output
return unless $DEF{DEBUG};
# Check against caller class
my $package = exists $opts->{_caller_package} ? $opts->{_caller_package} : (caller)[0];
return unless lc $DEF{DEBUG_CLASS} eq 'all' || $package eq $DEF{DEBUG_CLASS};
# Check if we really want to debug syslog data
$opts->{syslog_level} = 'debug';
$opts->{no_syslog} //= !$DEF{SYSLOG_DEBUG};
lib/CLI/Helpers.pm view on Meta::CPAN
sub debug_var {
my $opts = {
clear => 1, # Meant for the screen
no_syslog => 1, # Meant for the screen
_caller_package => (caller)[0], # Make sure this is set on entry
};
# Merge with options
if( is_hashref($_[0]) && defined $_[1] && is_ref($_[1]) ) {
my $ref = shift;
foreach my $k (keys %{ $ref } ) {
view release on metacpan or search on metacpan
omnithreads/shared/t/av_refs.t view on Meta::CPAN
$name = '' unless defined $name;
# You have to do it this way or VMS will get confused.
print $ok ? "ok $id - $name\n" : "not ok $id - $name\n";
printf "# Failed test at line %d\n", (caller)[2] unless $ok;
return $ok;
}
use ExtUtils::testlib;
view release on metacpan or search on metacpan
lib/CPANPLUS/YACSmoke/SortVers.pm view on Meta::CPAN
}
@A <=> @B;
}
sub versions() {
my $callerpkg = (caller)[0];
my $caller_a = "${callerpkg}::a";
my $caller_b = "${callerpkg}::b";
no strict 'refs';
return versioncmp($$caller_a, $$caller_b);
}
view release on metacpan or search on metacpan
t/Program-jumps.t view on Meta::CPAN
use_ok 'Asm::Preproc::Token';
my($program, $bytes, $code, %labels);
sub NEW () {
my $caller_line = (caller)[2];
ok $caller_line, "[line $caller_line]";
isa_ok $program = CPU::Z80::Assembler::Program->new(),
'CPU::Z80::Assembler::Program';
$bytes = "";
$code = "";
%labels = ();
}
sub LABEL ($) {
my($label) = @_;
my $caller_line = (caller)[2];
ok $caller_line, "[line $caller_line]";
my $text = "$label:\n";
isa_ok my $line = Asm::Preproc::Line->new($text, "f.asm", 1),
'Asm::Preproc::Line';
t/Program-jumps.t view on Meta::CPAN
$labels{$label} = length($bytes);
}
sub NOPs ($) {
my($num) = @_;
my $caller_line = (caller)[2];
ok $caller_line, "[line $caller_line]";
my $text = " NOP :" x $num . "\n";
isa_ok my $line = Asm::Preproc::Line->new($text, "f.asm", 1),
'Asm::Preproc::Line';
t/Program-jumps.t view on Meta::CPAN
$code .= $text;
}
sub JUMP ($$$$) {
my($instr, $short_opcodes, $long_opcodes, $instr_bytes) = @_;
my $caller_line = (caller)[2];
ok $caller_line, "[line $caller_line]";
my $label = (split(' ', $instr))[-1];
my $text = " ".$instr."\n";
t/Program-jumps.t view on Meta::CPAN
}
$code .= $text;
}
sub TEST () {
my $caller_line = (caller)[2];
is $program->bytes, $bytes, "[line $caller_line] assembled OK";
is $program->bytes, $bytes, "[line $caller_line] second run also OK";
is z80asm($code), $bytes, "[line $caller_line] z80asm OK";
while (my($label, $value) = each %labels) {
is $program->symbols->{$label}->evaluate, $value,
view release on metacpan or search on metacpan
t/Instruction.t view on Meta::CPAN
sub t_instr (@) {
my($factory, $addr, $limit, $size, $opcode, $args,
$is_call, $is_branch, $is_break_flow,
$string, $dump) = @_;
my $caller_line = (caller)[2];
ok 1, "[line $caller_line]";
isa_ok $instr = CPU::Z80::Disassembler::Instruction->$factory(
$mem, $addr, $limit),
'CPU::Z80::Disassembler::Instruction';
view release on metacpan or search on metacpan
lib/CSS/DOM/Style.pm view on Meta::CPAN
and $val = $self->getPropertyValue($prop);
@_ and $self->setProperty($prop, shift);
return $val;
} else {
die "Undefined subroutine $AUTOLOAD called at ",
join(" line ", (caller)[1,2]), ".\n";
}
}
sub DESTROY{}
}
*cssFloat = \&float;
view release on metacpan or search on metacpan
# default error handler.
package CSS::SAC::DefaultErrorHandler;
sub new { return bless [], __PACKAGE__; }
sub warning { warn "[warning] $_[1] (line " . (caller)[2] . ")"; }
sub error { warn "[error] $_[1] (line " . (caller)[2] . ")"; }
sub fatal_error { die "[fatal] $_[1] (line " . (caller)[2] . ")"; }
# #
# #
### Default Error Handler #############################################
view release on metacpan or search on metacpan
lib/Carp/Notify.pm view on Meta::CPAN
$init{'death_function'}->(%init, 'errors' => $errors);
}
else {
# this wants rework, badly
no strict 'vars';
my ($calling_package) = (caller)[0];
my $package = $calling_package . "::";
$package = $1 if $init{'death_function'} =~ s/(.+::)//;
$init{'death_function'} =~ s/^&//;
&{$package . $init{'death_function'}}(%init, 'errors' => $errors);
exit;
lib/Carp/Notify.pm view on Meta::CPAN
$func->($error);
}
elsif ($func){
# this wants reworked
no strict 'refs';
my ($calling_package) = (caller)[0];
my $package = $calling_package . "::";
$package = $1 if $$func =~ s/(.+::)//;
&{$package . $func}($error);
}
else {
view release on metacpan or search on metacpan
lib/Carrot.pm view on Meta::CPAN
# /type function
# /effect "Issues a warning only."
# //parameters
# //returns
{
# return if((caller)[RDX_CALLER_LINE] == 0); # perl -MCarrot
warn($translated_errors->message_text('require_preferred', []));
}
# =--------------------------------------------------------------------------= #
view release on metacpan or search on metacpan
lib/Earabic.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Ebig5hkscs.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Ebig5plus.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Ecyrillic.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Eeucjp.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Eeuctw.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Egb18030.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Egbk.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Egreek.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Ehp15.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Ehebrew.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Einformixv6als.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Ejis8.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Ekoi8r.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock
view release on metacpan or search on metacpan
lib/Ekoi8u.pm view on Meta::CPAN
elsif (defined $_[1]) {
return $_[1] . '::' . $name;
}
else {
return (caller)[0] . '::' . $name;
}
}
sub qualify_to_ref ($;$) {
if (defined $_[1]) {
no strict qw(refs);
return \*{ qualify $_[0], $_[1] };
}
else {
no strict qw(refs);
return \*{ qualify $_[0], (caller)[0] };
}
}
}
# P.714 29.2.39. flock