#!perl

use strict;

use warnings;

use CPAN::Meta;

use Module::CPANfile;

use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat);

​

my @phases = qw(configure build test develop runtime);

my @types  = qw(requires recommends suggests conflicts);

​

my %o = map { $_ => 1 } @phases, @types; # default all

​

GetOptions(

    "include-empty!", \$o{include_empty},

    "h|help", \$o{help},

    map { ("$_!", \$o{$_}) } (@phases, @types),

);

​

if ($o{help}) {

    if (eval { require Pod::Usage; 1 }) {

        Pod::Usage::pod2usage(1);

    } else {

        die "Usage: mymeta-cpanfile\n\nSee perldoc mymeta-cpanfile for more details.\n";

    }

}

​

sub get_mymeta {

    for my $file (qw( MYMETA.json MYMETA.yml META.json META.yml )) {

        next unless -r $file;

        my $meta = eval { CPAN::Meta->load_file($file) };

        return $meta if $meta;

    }

}

​

my $meta = get_mymeta or die "Could not locate any META files\n";

​

my $prereqs = $meta->prereqs;

my $filtered = {};

​

while (my($phase, $types) = each %$prereqs) {

    next unless $o{$phase};

    while (my($type, $reqs) = each %$types) {

        next unless $o{$type};