view release on metacpan or  search on metacpan

maint/pack  view on Meta::CPAN

use version ();

my ($in_file) = @ARGV;
$in_file && -f $in_file or die "Input file must be specified!";
my $mymeta = decode_json(do { open my $fh, '<', 'MYMETA.json'; local $/; +<$fh> });

$ENV{PERL_STRICTURES_EXTRA} = 0;
# never pack these
my @exclude = qw(
    ^Sub::Name$
    ^JSON::XS
    ^Class::XSAccessor
    ^Variable::Magic$
    ^Package::Stash::XS$
    ^IO::Tty
    ^IO::Pty$
);
# these have optional XS components
my @dual = qw(
    List::MoreUtils
    Params::Util