The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use strict;
use warnings;

unless ($ENV{RELEASE_TESTING}) {
    plan(skip_all => "Author tests not required for installation");
}

eval "use CPAN::Meta";
plan(skip_all => "CPAN::Meta required for testing MYMETA.json") if $@;
my $mymeta = CPAN::Meta->load_file('MYMETA.json');

use Test::More;
my (@requirements) = required_modules($mymeta);
ok scalar(@requirements);
done_testing();

sub required_modules {
    my $prereqs = $mymeta->effective_prereqs;
    my $requires = $prereqs->merged_requirements;
    return $requires->required_modules;
}

__END__
use Test::Spec;
describe 'MYMETA.json' => sub {
    it 'lists prereqs' => sub {
        my $mymeta = CPAN::Meta->load_file('MYMETA.json');
        print STDERR Dumper($mymeta->effective_prereqs);



    };
};

run_tests();