view release on metacpan or  search on metacpan

bin/cpan-release-history  view on Meta::CPAN

die "usage $0 <dist-name>\n" unless @ARGV == 1;

my $iterator = CPAN::ReleaseHistory->new()
               ->release_iterator(well_formed => 1);
my @entries;

while (my $release = $iterator->next_release) {

    # The convention is that any Raku releases go in a Perl6 directory
    # Let's guess that a directory Raku will be supported soon as well
    next if $release->path =~ m!/Perl6/!;
    next if $release->path =~ m!/Raku/!;

    my $distinfo = $release->distinfo;
    my @tm       = gmtime($release->timestamp);

    next unless $distinfo->dist eq $ARGV[0];

    unshift(@entries,
                [