CPAN::Groonga

quest;
use LWP::Protocol::https;
use Business::OnlinePayment::BitPay::KeyUtils;
use JSON;
use JSON::Parse 'parse_json';
require IO::Socket::SSL;
use Net::SSLeay;
use Data::Dumper;

sub new {
    my $c

$token;
    $response = post($self, path => "invoices", params => $content);
    my $data = parse_json($response->content)->{'data'};
    return %{$data};
}

sub get_invoice{
    my $self = shift;
   

{'public'};
    my $response = get($self, path => $path, public => $public);
    my $data = parse_json($response->content)->{'data'};
    return %{$data};
}

sub get{
    my $self = shift;
    my %opt