Yet Another CPAN Grep

WebService-Cryptopia ( R/RC/RCL/WebService-Cryptopia-0.018.tar.gz, RCL, 2018; MetaCPAN )

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

package WebService::Cryptopia;
# ABSTRACT: Interface to Cryptopia
use JSON::MaybeXS;
use LWP::UserAgent;
use Log::Log4perl;
use Digest::MD5;
use MIME::Base64;
use URL::Encode qw/url_encode/;
use Moose

a = LWP::UserAgent->new(
	keep_alive	=> 1
    );
    $ua->default_header('Accept' => 'application/json' );
    return $ua;
}

=back

=head1 METHODS

=over 4

=item api_public

Query the public API

=c

    $self->log->logdie( "Response:\n" . $response->decoded_content );
    }
    my $data = decode_json( $response->decoded_content );
    if( not $data->{Success} ){
        $self->log->logdie( $data-