view release on metacpan or  search on metacpan

lib/Finance/GDAX/Lite.pm  view on Meta::CPAN

    my $res = $self->{_http}->request($method, $url, $options);
    # HTTP::Tiny puts error message in content
    if (!$res->{success} && $res->{status} == 599 &&
            $res->{reason} eq 'Internal Exception') {
        $res->{content} =~ s/\R/ /g;
        $res->{reason} .= ": $res->{content}";
        undef $res->{content};
    }

    if ($res->{headers}{'content-type'} =~ m!application/json!) {
        $res->{content} = $self->{_json}->decode($res->{content});
        log_trace("API response [%s]: JSON: %s", $time, $res->{content});
    } else {
        log_trace("API response [%s]: non-JSON: %s", $time, $res->{content});
    }

    my $reason = $res->{reason};
    if ($res->{status} != 200 &&
            ref($res->{content}) eq 'HASH' && $res->{content}{message}) {
        $reason .= ": $res->{content}{message}";