view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
        }
 
        push @found, [ $file, $pkg ];
    }, $path ) if -d $path;
 
    @found;
}
 
sub _caller {
    my $depth = 0;
    my $call  = caller($depth);
    while ( $call eq __PACKAGE__ ) {
        $depth++;
        $call = caller($depth);
    }
    return $call;
}
 
1;

inc/Module/Install/Makefile.pm  view on Meta::CPAN

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
}
 
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, always use defaults
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
        local $ENV{PERL_MM_USE_DEFAULT} = 1;
        goto &ExtUtils::MakeMaker::prompt;
    } else {
        goto &ExtUtils::MakeMaker::prompt;

inc/Test/More.pm  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use 5.004;
 
use strict;
 
 
# 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";
}
 
 
 
use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS $TODO);
$VERSION = '0.64';
$VERSION = eval $VERSION;    # make the alpha version come out as a number
 
use Test::Builder::Module;