Yet Another CPAN Grep

WebService-Cryptsy ( Z/ZO/ZOFFIX/WebService-Cryptsy-1.008007.tar.gz, ZOFFIX, 2015; MetaCPAN )

WebService-Cryptsy/lib/WebService/Cryptsy.pm ( view source; MetaCPAN )

package WebService::Cryptsy;

use Moo;

our $VERSION = '1.008007'; # VERSION

use URI;
use JSON::MaybeXS;
use LWP::UserAgent;
use Digest::SHA qw/hmac_sha512_hex/;
use HTTP::Request::Common qw/POST/;

lf, $json, $method ) = @_;

    unless ( $json ) {
        $self->error('Network error: got no data');
        return
    }

    $self->error( undef );

    my $decoded = eval { decode_json( $json );

};
    if ( $@ ) {
        $self->error('JSON parsing error: ' . $@);
        return;
    }

    unless ( $decoded and $decoded->{success} ) {
        $self->error( $decoded && $decoded->{error}