view release on metacpan or  search on metacpan

script/cpanchanges  view on Meta::CPAN

    my $url = "http://fastapi.metacpan.org/v1/"
            . join "/", map uri_escape($_), @_;

    my $ua = LWP::UserAgent->new(
        agent => "cpanchanges/$VERSION",
    );
    my $response = $ua->get($url);

    if (!$response->is_success) {
        warn "Request '$url' failed: ", $response->status_line, "\n"
            unless $response->code == 404;
        return;
    }

    my $result = eval { decode_json($response->decoded_content) };
    if ($@ or not $result) {
        warn "Error decoding response: $@\n";
        return;
    }
    return $result;
}