}
sub _from_meta {
my ($class, $me) = @_;
my $meta = $me->d->{meta_yml}; # $me->d->{meta_json} || $me->d->{meta_yml};
return unless $meta && ref $meta eq ref {};
my $spec = $meta->{'
special files/dirs
my @special_files = sort (qw(Makefile.PL Build.PL META.yml META.json MYMETA.yml MYMETA.json dist.ini cpanfile SIGNATURE MANIFEST MANIFEST.SKIP test.pl LICENSE LICENCE));
my
d.";
},
},
{
name => 'has_meta_json',
error => q{The file "META.json" is missing from this distribution. META.json has better information than META.yml and is preferred
> q{Add a META.json to the distribution. Your buildtool should be able to autogenerate it.},
code => sub {
my $d = shift;
return 1 if $d->{file_meta_json};
$VERSION =~ s/_//; ## no critic
sub order { 10 }
my $JSON_DECODER = _load_json_decoder() || do { require JSON::PP; JSON::PP->can('decode_json') };
#################################################
= $me->distdir;
my $meta_yml = catfile($distdir, 'META.yml');
my $meta_json = catfile($distdir, 'META.json');
my $mymeta_yml = catfile($distdir, 'MYMETA.yml');
# META.yml is not a
}
# check also META.json (if exists).
if (-f $meta_json && -r _) {
_analyse_json($me, $meta_json);
}
# If, and only if META.yml and META.json don't exist,
# try MYMET