----------------------
sub _metapath
{
my ($mod) = @_;
my $metapath;
for my $ext (qw/json yml/) {
my $p = catfile($mod->status->extract, "META.$ext");
if (-f $p) {
return if ( $d eq $b );
}
return $d;
}
#--- PRIVATE METHOD ---
# We read the META.json or META.yml file with Parse::CPAN::META and extract
# data needed for makedepends and pkgdesc if
odobj) = ($self->status, $self->parent);
# Leave metareqs undef if there is no META.yml/META.json.
my $path = _metapath($modobj) or return;
my $meta = eval { Parse::CPAN::Meta::LoadFi