view release on metacpan or  search on metacpan

t/authors.t  view on Meta::CPAN

if ( time - ( stat $cache )[9] > 24 * 60 * 60 ) {
    diag "Refreshing index cache (@{[ ~~ localtime +( stat $cache )[9] ]})";
    $index->refresh_index;
}
diag "Reading packages from $cache";

# get both lists
my %seen;
my @current = sort keys %{ Acme::CPANAuthors::MetaSyntactic->authors };
my @latest  = sort grep !$seen{$_}++,
    map { $_->{uri} =~ m{cpan:///distfile/([A-Z]+)/} }
    $index->search_packages( { package => qr{^Acme::MetaSyntactic::[a-z]} } );

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

if ( !$ok ) {
    %seen = ();
    $seen{$_}++ for @latest;
    $seen{$_}-- for @current;
    diag "The list of Acme::MetaSyntactic themes authors has changed:";