view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/changes_entry.pm  view on Meta::CPAN

    my %releases;
    for my $release (reverse $changes->releases) {
        $version //= $release->version;
        $releases{ $release->version } = $release;
    }

    if ($releases{$version}) {
        [200, "OK", $releases{$version}->serialize];
    } else {
        [404, "No entry for version $version in the Changes for $args{module_or_dist_or_script}"];
    }
}

1;
# ABSTRACT: Show a single entry from a distribution/module's Changes file

__END__

=pod