view release on metacpan or  search on metacpan

t/metasyntactic.t  view on Meta::CPAN

    map { $_->{uri} =~ m{cpan:///distfile/.*/(.*)-[^-]*$} }
    grep $_->{package} !~ /^Acme::MetaSyntactic::test_wlb_meta$/,
    $index->search_packages( { package => qr{^Acme::MetaSyntactic::[a-z]} } );

# get the current prereqs
my %pack2dist = qw( Acme-MetaSyntactic-xkcdcommon1949 Crypt-XKCDCommon1949 );
my @current   = sort
    map exists $pack2dist{$_} ? $pack2dist{$_} : $_,
    map { s/::/-/g; $_ }
    grep /^Acme::MetaSyntactic/,
    split m{$/}, `dzil listdeps`;

# compare both lists
my $ok = is_deeply( \@current, \@latest, "The prereq list matches CPAN" );

if ( !$ok ) {
    %seen = ();
    $seen{$_}++ for @latest;
    $seen{$_}-- for @current;
    diag "\nThe list of Acme::CPANAuthors modules on CPAN has changed:";
    diag( $seen{$_} > 0 ? "+ $_" : "- $_" )