@ISA
=
qw(Module::Install::Base)
;
$VERSION
=
'0.61'
;
sub
Build {
$_
[0] }
sub
write
{
my
$self
=
shift
;
die
"Build->write() takes no arguments\n"
if
@_
;
my
%args
;
my
$build
;
$args
{dist_name} =
$self
->name ||
$self
->determine_NAME(
$self
->{args});
$args
{license} =
$self
->license;
$args
{test_files} =
$self
->tests;
$args
{dist_version} =
$self
->version ||
$self
->determine_VERSION(
$self
->{args});
$args
{dist_abstract} =
$self
->abstract;
$args
{dist_author} =
$self
->author;
$args
{sign} =
$self
->sign;
$args
{no_index} =
$self
->no_index;
foreach
my
$key
(
qw(build_requires requires recommends conflicts)
) {
my
$val
=
eval
"\$self->$key"
or
next
;
$args
{
$key
} = {
map
@$_
,
@$val
};
}
%args
=
map
{(
$_
,
$args
{
$_
})}
grep
{
defined
(
$args
{
$_
})}
keys
%args
;
$build
= Module::Build->new(
%args
);
$build
->add_to_cleanup(
split
/\s+/,
$self
->clean_files);
$build
->create_build_script;
}
sub
ACTION_reset {
my
(
$self
) =
@_
;
die
"XXX - Can't get this working yet"
;
warn
"Removing inc\n"
;
rmpath(
'inc'
);
}
sub
ACTION_dist {
my
(
$self
) =
@_
;
die
"XXX - Can't get this working yet"
;
}
1;