use
vars
qw{$VERSION $ISCORE @ISA}
;
BEGIN {
$VERSION
=
'0.76'
;
$ISCORE
= 1;
@ISA
=
qw{Module::Install::Base}
;
}
sub
AutoInstall {
$_
[0] }
sub
run {
my
$self
=
shift
;
$self
->auto_install_now(
@_
);
}
sub
write
{
my
$self
=
shift
;
$self
->auto_install(
@_
);
}
sub
auto_install {
my
$self
=
shift
;
return
if
$self
->{done}++;
my
@core
=
map
@$_
,
map
@$_
,
grep
ref
,
$self
->build_requires,
$self
->requires;
my
@config
=
@_
;
$self
->include(
'Module::AutoInstall'
);
Module::AutoInstall->
import
(
(
@config
? (
-config
=> \
@config
) : ()),
(
@core
? (
-core
=> \
@core
) : ()),
$self
->features,
);
$self
->makemaker_args( Module::AutoInstall::_make_args() );
my
$class
=
ref
(
$self
);
$self
->postamble(
"# --- $class section:\n"
.
Module::AutoInstall::postamble()
);
}
sub
auto_install_now {
my
$self
=
shift
;
$self
->auto_install(
@_
);
Module::AutoInstall::do_install();
}
1;