AnyMQ-Pg
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
358359360361362363364365366367368369370371372373374375376377378379380381#####################################################################
# 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
eval
( $] >= 5.006 ? <<
'END_NEW'
: <<
'END_OLD'
);
die
$@
if
$@;
sub
_read {
local
*FH
;
open
( FH,
'<'
,
$_
[0] ) or
die
"open($_[0]): $!"
;
my
$string
=
do
{
local
$/; <FH> };
inc/Module/Install/Makefile.pm view on Meta::CPAN
141516171819202122232425262728293031323334}
sub
Makefile {
$_
[0] }
my
%seen
= ();
sub
prompt {
shift
;
# Infinite loop protection
my
@c
=
caller
();
if
( ++
$seen
{
"$c[1]|$c[2]|$_[0]"
} > 3 ) {
die
"Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])"
;
}
# In automated testing or non-interactive session, always use defaults
if
( (
$ENV
{AUTOMATED_TESTING} or -! -t STDIN) and !
$ENV
{PERL_MM_USE_DEFAULT} ) {
local
$ENV
{PERL_MM_USE_DEFAULT} = 1;
goto
&ExtUtils::MakeMaker::prompt
;
}
else
{
goto
&ExtUtils::MakeMaker::prompt
;
inc/Test/Builder.pm view on Meta::CPAN
764765766767768769770771772773774775776777778779780781782783784sub
cmp_ok {
my
(
$self
,
$got
,
$type
,
$expect
,
$name
) =
@_
;
my
$test
;
my
$error
;
{
## no critic (BuiltinFunctions::ProhibitStringyEval)
local
( $@, $!,
$SIG
{__DIE__} );
# isolate eval
my
(
$pack
,
$file
,
$line
) =
$self
->
caller
();
# This is so that warnings come out at the caller's level
$test
=
eval
qq[
#line $line "(eval in cmp_ok) $file"
\$got $type \$expect;
]
;
$error
= $@;
}
local
$Level
=
$Level
+ 1;
my
$ok
=
$self
->ok(
$test
,
$name
);
inc/Test/Builder.pm view on Meta::CPAN
823824825826827828829830831832833834835836837838839840841842843
return
$self
->diag(
<<"DIAGNOSTIC");
$got
$type
$expect
DIAGNOSTIC
}
sub
_caller_context {
my
$self
=
shift
;
my
(
$pack
,
$file
,
$line
) =
$self
->
caller
(1);
my
$code
=
''
;
$code
.=
"#line $line $file\n"
if
defined
$file
and
defined
$line
;
return
$code
;
}
#line 1205
sub
BAIL_OUT {
inc/Test/Builder.pm view on Meta::CPAN
13051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330sub
_message_at_caller {
my
$self
=
shift
;
local
$Level
=
$Level
+ 1;
my
(
$pack
,
$file
,
$line
) =
$self
->
caller
;
return
join
(
""
,
@_
) .
" at $file line $line.\n"
;
}
sub
carp {
my
$self
=
shift
;
return
warn
$self
->_message_at_caller(
@_
);
}
sub
croak {
my
$self
=
shift
;
return
die
$self
->_message_at_caller(
@_
);
}
#line 1992
sub
current_test {
my
(
$self
,
$num
) =
@_
;
lock
(
$self
->{Curr_Test} );
if
(
defined
$num
) {
inc/Test/Builder.pm view on Meta::CPAN
13941395139613971398139914001401140214031404140514061407140814091410141114121413
return
$todo
if
defined
$todo
;
return
''
;
}
#line 2173
sub
find_TODO {
my
(
$self
,
$pack
,
$set
,
$new_value
) =
@_
;
$pack
=
$pack
||
$self
->
caller
(1) ||
$self
->exported_to;
return
unless
$pack
;
no
strict
'refs'
;
## no critic
my
$old_value
= ${
$pack
.
'::TODO'
};
$set
and ${
$pack
.
'::TODO'
} =
$new_value
;
return
$old_value
;
}
#line 2193
inc/Test/Builder.pm view on Meta::CPAN
145714581459146014611462146314641465146614671468146914701471147214731474147514761477#line 2298
sub
caller
{
## no critic (Subroutines::ProhibitBuiltinHomonyms)
my
(
$self
,
$height
) =
@_
;
$height
||= 0;
my
$level
=
$self
->level +
$height
+ 1;
my
@caller
;
do
{
@caller
= CORE::
caller
(
$level
);
$level
--;
}
until
@caller
;
return
wantarray
?
@caller
:
$caller
[0];
}
#line 2315
#line 2329
#'#
inc/Test/More.pm view on Meta::CPAN
789101112131415161718192021222324252627#---- perlcritic exemptions. ----#
# We use a lot of subroutine prototypes
## no critic (Subroutines::ProhibitSubroutinePrototypes)
# 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 ];
return
warn
@_
,
" at $file line $line\n"
;
}
our
$VERSION
=
'0.98'
;
$VERSION
=
eval
$VERSION
;
## no critic (BuiltinFunctions::ProhibitStringyEval)
our
@ISA
=
qw(Test::Builder::Module)
;
our
@EXPORT
= qw(ok use_ok require_ok
is isnt like unlike is_deeply
inc/parent.pm view on Meta::CPAN
1234567891011121314151617181920
( run in 0.263 second using v1.01-cache-2.11-cpan-55f5a4728d2 )