CPAN::Groonga

MAC_SHA1 qw(hmac_sha1);
use MIME::Base64;
use URI::Escape qw/uri_escape/;
use Carp qw/croak/;
use JSON;

sub new {
    my $class = shift;
    my %params = @_ % 2 ? %{$_[0]} : @_;

    $params{api_key}

ncode_json($data)) if $data;

    # print Dumper(\$req); use Data::Dumper;

    my $res = $self->{ua}->request($req);
    if ($res->header('Content-Type') =~ 'json') {
        return decode_json($res-

="hmac-sha1",headers="date x-mod-nonce",signature="$sig"~,
        "Content-Type" => "application/json;charset=UTF-8",
    ];
}

1;
__END__

=encoding utf-8

=head1 NAME

WWW::ModulrFinance - Modulr A