2 package Module
::Install
::AutoInstall
;
5 use Module
::Install
::Base
;
7 use vars
qw{$VERSION $ISCORE @ISA};
11 @ISA = qw{Module
::Install
::Base
};
14 sub AutoInstall
{ $_[0] }
18 $self->auto_install_now(@_);
23 $self->auto_install(@_);
28 return if $self->{done
}++;
30 # Flatten array of arrays into a single array
31 my @core = map @
$_, map @
$_, grep ref,
32 $self->build_requires, $self->requires;
36 # We'll need Module::AutoInstall
37 $self->include('Module::AutoInstall');
38 require Module
::AutoInstall
;
40 Module
::AutoInstall
->import(
41 (@config ?
(-config
=> \
@config) : ()),
42 (@core ?
(-core
=> \
@core) : ()),
46 $self->makemaker_args( Module
::AutoInstall
::_make_args
() );
48 my $class = ref($self);
50 "# --- $class section:\n" .
51 Module
::AutoInstall
::postamble
()
55 sub auto_install_now
{
57 $self->auto_install(@_);
58 Module
::AutoInstall
::do_install
();