Yet Another CPAN Grep

App-CryptoCurrencyUtils ( P/PE/PERLANCAR/App-CryptoCurrencyUtils-0.012.tar.gz, PERLANCAR, 2018; MetaCPAN )

App-CryptoCurrencyUtils/lib/App/CryptoCurrencyUtils.pm ( view source; MetaCPAN )

PLN", "RUB", "SEK", "SGD", "THB", "TRY", "TWD", "ZAR"]],
    },
);

sub _get_json {
    require HTTP::Tiny;
    require JSON::MaybeXS;

    my ($url) = @_;

    my $res = HTTP::Tiny->new->get($url);

;
    eval { $data = JSON::MaybeXS::decode_json($res->{content}) };
    return [500, "Can't decode JSON: $@"] if $@;

    [$res->{status}, $res->{reason}, $data];
}

sub _get_json_cmc {
    my $url =

shift;
    my $res = _get_json($url);

    {
        last unless $res->[0] == 200;
        if (ref($res) eq 'HASH' && $res->{error}) {
            $res = [500, "Got error response from CMC API: $res->