use
5.006;
$VERSION
=
'0.12'
;
sub
readme_from {
my
$self
=
shift
;
return
unless
$self
->is_admin;
my
$file
=
shift
||
$self
->_all_from
or
die
"Can't determine file to make readme_from"
;
my
$clean
=
shift
;
print
"Writing README from $file\n"
;
my
$parser
= Pod::Text->new();
open
README,
'> README'
or
die
"$!\n"
;
$parser
->output_fh(
*README
);
$parser
->parse_file(
$file
);
if
(
$clean
) {
$self
->clean_files(
'README'
);
}
return
1;
}
sub
_all_from {
my
$self
=
shift
;
return
unless
$self
->admin->{extensions};
my
(
$metadata
) =
grep
{
ref
(
$_
) eq
'Module::Install::Metadata'
;
} @{
$self
->admin->{extensions}};
return
unless
$metadata
;
return
$metadata
->{
values
}{all_from} ||
''
;
}
'Readme!'
;