CPAN::Groonga

you are responsible for SSL cert verification code...
use LWP::UserAgent 6;
use URI;
use CGI;
use JSON;
use MIME::Base64;
use Time::HiRes qw(gettimeofday);
use Digest::SHA qw(hmac_sha256_hex);
use Dat

->uri . '?' . $uri->query);
            }
   
            $request->header(Accept => 'application/json');

            # create a new user_agent each time...
            $self->user_agent(LWP::UserAge

 warn Data::Dumper->Dump([$self->http_response],['Response']) if DEBUG;
        $content = $self->json->decode($self->http_response->content);
        1;
    } or do {
        $content = {};
        w

ex::API::Request);
use strict;

use constant URL        => 'https://cavirtex.com/api2/user/trades.json';
use constant ATTRIBUTES => qw(currencypair days startdate enddate);
use constant DATA_KEY   => 

irtex::API::Request);
use strict;

use constant URL          => 'https://cavirtex.com/api2/trades.json';
use constant ATTRIBUTES   => qw(currencypair days startdate enddate);
use constant DATA_KEY    

tex::API::Request);
use strict;

use constant URL        => 'https://cavirtex.com/api2/user/order.json';
use constant ATTRIBUTES => qw(currencypair mode amount price);
use constant DATA_KEY   => 'orde

x::API::Request);
use strict;

use constant URL        => 'https://cavirtex.com/api2/user/balance.json';
use constant ATTRIBUTES => qw();
use constant DATA_KEY   => 'balance';
use constant READY      

irtex::API::Request);
use strict;

use constant URL          => 'https://cavirtex.com/api2/ticker.json';
use constant ATTRIBUTES   => qw(currencypair);
use constant REQUEST_TYPE => 'GET';
use constant

I::Request);
use strict;

use constant URL        => 'https://cavirtex.com/api2/user/order_cancel.json';
use constant ATTRIBUTES => qw(id);
use constant DATA_KEY   => undef;

sub url               { U

::API::Request);
use strict;

use constant URL        => 'https://cavirtex.com/api2/user/withdraw.json';
use constant ATTRIBUTES => qw(amount currency address);

sub amount   { my $self = shift; $self

ex::API::Request);
use strict;

use constant URL        => 'https://cavirtex.com/api2/user/orders.json';
use constant ATTRIBUTES => qw(currencypair days startdate enddate);
use constant DATA_KEY   => 

I::Request);
use strict;

use constant URL        => 'https://cavirtex.com/api2/user/transactions.json';
use constant ATTRIBUTES => qw(currencypair days startdate enddate);
use constant DATA_KEY   => 

PI::Request);
use strict;

use constant URL               => 'https://cavirtex.com/api2/orderbook.json';
use constant ATTRIBUTES        => qw(currencypair);
use constant DATA_KEY          => 'orderboo