|
98
|
0 |
0 |
unless eval {
do {
require CPAN::Meta;
require ExtUtils::Manifest;
require Module::Metadata;
my $manifest;
{
local $SIG{'__WARN__'} = sub {
}
;
$manifest = ExtUtils::Manifest::maniread();
} ;
return unless keys %{{} unless $manifest;};
my $meta = "CPAN::Meta"->new({"name", "Euler", "version", "2.71828", "no_index", no_index()});
foreach my $fn (sort keys %{$manifest;}) {
next unless $fn =~ / [.] pm \z /msx;
my $pvd = "Module::Metadata"->package_versions_from_directory(undef, [$fn]);
foreach my $pkg (keys %{$pvd;}) {
$provides->{$pkg} = $pvd->{$pkg} if $meta->should_index_package($pkg) and $meta->should_index_file($pvd->{$pkg}{'file'});
} ;
} ;
1
}
} |