CPAN::Groonga

a::Client::Base;
use strict;
use warnings;
use utf8;

use Carp qw(croak);
use LWP::UserAgent;
use JSON;
use HTTP::Request;
use URI;

use Class::Accessor::Lite (
    new => 1,
    rw => [qw(
        ur

    my $request = HTTP::Request->new("$method" => $url);
    $request->content_type('application/json');

    if ($method eq 'GET' || $method eq 'DELETE') {
        my $uri = URI->new($url);
        

as_string);
    } elsif ($method eq 'POST' || $method eq 'PUT') {
        $request->content(JSON::encode_json $params);
    } else {
        croak "invalid http method: $method";
    }

    my $respon