view release on metacpan or search on metacpan
lib/POEST/Plugin.pm view on Meta::CPAN
use POE qw[Component::Server::SMTP];
use Carp;
sub import {
my ($class) = @_;
my ($caller) = (caller)[0];
{
eval qq[
package $caller;
use POE qw[Component::Server::SMTP];
view release on metacpan or search on metacpan
t/perl/pat.t view on Meta::CPAN
# Force scalar context on the patern match
sub ok ($;$) {
my($ok, $name) = @_;
printf "%sok %d - %s\n", ($ok ? "" : "not "), $test,
($name||$Message)."\tLine ".((caller)[2]);
printf "# Failed test at line %d\n", (caller)[2] unless $ok;
$test++;
return $ok;
}
t/perl/pat.t view on Meta::CPAN
for $got, $expect;
my $ok= $got eq $expect;
printf "%sok %d - %s\n", ($ok ? "" : "not "), $test,
($name||$Message)."\tLine ".((caller)[2]);
printf "# Failed test at line %d\n".
"# expected: %s\n".
"# result: %s\n",
(caller)[2], $expect, $got
unless $ok;
$test++;
return $ok;
}
view release on metacpan or search on metacpan
t/perl/pat.t view on Meta::CPAN
# Force scalar context on the patern match
sub ok ($;$) {
my($ok, $name) = @_;
printf "%sok %d - %s\n", ($ok ? "" : "not "), $test,
($name||$Message)."\tLine ".((caller)[2]);
printf "# Failed test at line %d\n", (caller)[2] unless $ok;
$test++;
return $ok;
}
t/perl/pat.t view on Meta::CPAN
for $got, $expect;
my $ok= $got eq $expect;
printf "%sok %d - %s\n", ($ok ? "" : "not "), $test,
($name||$Message)."\tLine ".((caller)[2]);
printf "# Failed test at line %d\n".
"# expected: %s\n".
"# result: %s\n",
(caller)[2], $expect, $got
unless $ok;
$test++;
return $ok;
}
view release on metacpan or search on metacpan
t/perl/pat.t view on Meta::CPAN
# Force scalar context on the patern match
sub ok ($;$) {
my($ok, $name) = @_;
printf "%sok %d - %s\n", ($ok ? "" : "not "), $test,
($name||$Message)."\tLine ".((caller)[2]);
printf "# Failed test at line %d\n", (caller)[2] unless $ok;
$test++;
return $ok;
}
t/perl/pat.t view on Meta::CPAN
for $got, $expect;
my $ok= $got eq $expect;
printf "%sok %d - %s\n", ($ok ? "" : "not "), $test,
($name||$Message)."\tLine ".((caller)[2]);
printf "# Failed test at line %d\n".
"# expected: %s\n".
"# result: %s\n",
(caller)[2], $expect, $got
unless $ok;
$test++;
return $ok;
}
view release on metacpan or search on metacpan
t/perl/pat.t view on Meta::CPAN
# Force scalar context on the patern match
sub ok ($;$) {
my($ok, $name) = @_;
printf "%sok %d - %s\n", ($ok ? "" : "not "), $test,
($name||$Message)."\tLine ".((caller)[2]);
printf "# Failed test at line %d\n", (caller)[2] unless $ok;
$test++;
return $ok;
}
t/perl/pat.t view on Meta::CPAN
for $got, $expect;
my $ok= $got eq $expect;
printf "%sok %d - %s\n", ($ok ? "" : "not "), $test,
($name||$Message)."\tLine ".((caller)[2]);
printf "# Failed test at line %d\n".
"# expected: %s\n".
"# result: %s\n",
(caller)[2], $expect, $got
unless $ok;
$test++;
return $ok;
}
view release on metacpan or search on metacpan
lib/require/relative.pm view on Meta::CPAN
$require::relative::VERSION = '1.0.1';
use Path::Tiny ();
sub import {
my ($class, @paths) = @_;
my ($package, $file) = (caller)[0, 1];
my $dir = -e $file
? Path::Tiny->new ($file)->absolute->parent
: Path::Tiny->cwd
;
view release on metacpan or search on metacpan
lib/sanity.pm view on Meta::CPAN
exit;
}
# Look for every indicator that proves that the user is in the distro directory
# and appears to be one of the coders
my $author_mode = !!((caller)[1] =~ /^(?:x?t|b?lib)[\/\\]/ && (-d '.git' or -d '.svn'));
$author_mode = 0 if (grep {
$ENV{"PERL5_${_}_IS_RUNNING"} || $ENV{"PERL5_${_}_IS_RUNNING_IN_RECURSION"}
} (qw/CPANM CPANP CPANPLUS CPAN/) );
# Process order:
view release on metacpan or search on metacpan
cpansmokebox/inc/bundle/Sort/Versions.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
lib/strictures.pm view on Meta::CPAN
if (!exists $opts{version}) {
$opts{version}
= exists $^H{strictures_enable} ? delete $^H{strictures_enable}
: int $VERSION;
}
$opts{file} = (caller)[1];
$class->_enable(\%opts);
}
sub _enable {
my ($class, $opts) = @_;
lib/strictures.pm view on Meta::CPAN
);
no warnings 'once';
except when called from a file which matches:
(caller)[1] =~ /^(?:t|xt|lib|blib)[\\\/]/
and when either C<.git>, C<.svn>, C<.hg>, or C<.bzr> is present in the current
directory (with the intention of only forcing extra tests on the author side)
-- or when C<.git>, C<.svn>, C<.hg>, or C<.bzr> is present two directories up
along with C<dist.ini> (which would indicate we are in a C<dzil test> operation,
view release on metacpan or search on metacpan
t/av_refs.t view on Meta::CPAN
# You have to do it this way or VMS will get confused.
if ($ok) {
print("ok $id - $name\n");
} else {
print("not ok $id - $name\n");
printf("# Failed test at line %d\n", (caller)[2]);
}
return ($ok);
}
view release on metacpan or search on metacpan
# You have to do it this way or VMS will get confused.
if ($ok) {
print("ok $id - $name\n");
} else {
print("not ok $id - $name\n");
printf("# Failed test at line %d\n", (caller)[2]);
}
return ($ok);
}
view release on metacpan or search on metacpan
typesafety.pm view on Meta::CPAN
#
use Carp 'confess', 'cluck';
use B::Concise 'concise_cv';
sub debug { my @args = @_; my $line = (caller)[2]; print "debug: $line: ", @args, "\n" if $debug; }
sub nastily () { " in package $lastpack, file $lastfile, line $lastline"; }
# $SIG{__DIE__} = $SIG{INT} = sub {
# # when someone does kill -INT <our pid> from the command line, dump our stack and exit
typesafety.pm view on Meta::CPAN
my $self = bless ['none', typesafety::source_status(), (undef) x 4, [], [], undef], shift();
while(@_) {
my $f = shift; $self->$f = shift;
}
# ignore the output string, just make sure that the fields required for diagnostics are defined
$self->created = (caller)[2];
$self->diagnostics();
typesafety::debug("typesafety::typeob: new: created ", $self->diagnostics());
return $self;
}
view release on metacpan or search on metacpan
-e $so or die;
}
sub bootstrap {
my $p = shift;
my ($q, $qpm) = (caller)[0, 1];
my ($qc, $qso);
local *XSUB = \@{$XSUB{$qpm}};
defined @XSUB or return;
view release on metacpan or search on metacpan
sub import {
my $class = shift;
($pkg) = (caller)[0];
$current = __PACKAGE__;
$mods = "";
&rerun unless (@_);
view release on metacpan or search on metacpan
inc/Sort/Versions.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);
}