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();