1
# $File: //depot/cpan/Module-Install/lib/Module/Install/AutoInstall.pm $ $Author: autrijus $
2
# $Revision: #13 $ $Change: 1846 $ $DateTime: 2003/12/31 22:57:12 $ vim: expandtab shiftwidth=4
4
package Module::Install::AutoInstall;
5
use Module::Install::Base; @ISA = qw(Module::Install::Base);
7
sub AutoInstall { $_[0] }
11
$self->auto_install_now(@_);
16
$self->auto_install(@_);
21
return if $self->{done}++;
23
# ExtUtils::AutoInstall Bootstrap Code, version 7.
24
AUTO:{my$p='ExtUtils::AutoInstall';my$v=0.49;$p->VERSION||0>=$v
25
or+eval"use $p $v;1"or+do{my$e=$ENV{PERL_EXTUTILS_AUTOINSTALL};
26
(!defined($e)||$e!~m/--(?:default|skip|testonly)/and-t STDIN or
27
eval"use ExtUtils::MakeMaker;WriteMakefile(PREREQ_PM=>{'$p',$v}
28
);1"and exit)and print"==> $p $v required. Install it from CP".
29
"AN? [Y/n] "and<STDIN>!~/^n/i and print"*** Installing $p\n"and
30
do{if (eval '$>' and lc(`sudo -V`) =~ /version/){system('sudo',
31
$^X,"-MCPANPLUS","-e","CPANPLUS::install $p");eval"use $p $v;1"
32
||system('sudo', $^X, "-MCPAN", "-e", "CPAN::install $p")}eval{
33
require CPANPLUS;CPANPLUS::install$p};eval"use $p $v;1"or eval{
34
require CPAN;CPAN::install$p};eval"use $p $v;1"||die"*** Please
35
manually install $p $v from cpan.org first...\n"}}}
37
# Flatten array of arrays into a single array
38
my @core = map @$_, map @$_, grep ref,
39
$self->build_requires, $self->requires;
41
while ( @core and @_ > 1 and $_[0] =~ /^-\w+$/ ) {
42
push @core, splice(@_, 0, 2);
45
ExtUtils::AutoInstall->import(
46
(@core ? (-core => \@core) : ()), @_, $self->features
49
$self->makemaker_args( ExtUtils::AutoInstall::_make_args() );
51
my $class = ref($self);
53
"# --- $class section:\n" .
54
ExtUtils::AutoInstall::postamble()
58
sub auto_install_now {
61
ExtUtils::AutoInstall::do_install();
added
removed
lib/Module/Install/AutoInstall.pm
