CPAN::Groonga

package WebService::GigaTools;
use JSON::XS;
use Cache::LRU;
use Net::DNS::Lite;
use Furl;
use URI;
use URI::QueryParam;
use Carp;
use Moo;
use namespace::clean;
our $VERSION = "0.01";


$Net::DNS::Li

   my $code = sub {
        my ($self, %query_param) = @_;
        return $self->request("$method.json", \%query_param);
    };
    no strict 'refs';
    *{$method} = $code; 
}


sub request {
    my 

      path_query => "$path$query",
            method => 'GET',
        );

    my $data = decode_json( $content );
    if ( $status_code != 200 ) {
        confess "Error";
    } else {
        retur