CPAN::Groonga

 WG::API::Base;

use Modern::Perl '2015';
use Moo::Role;

use WG::API::Error;
use HTTP::Tiny;
use JSON;
use Data::Dumper;
use Log::Any qw($log);
use URI;
use URI::QueryParam;

=encoding utf8

=head1 V

( $params, %passed_params ) );

    return $self->_parse( $response->{'status'} eq '200' ? decode_json $response->{'content'} : undef );
}

sub _post {
    my ( $self, $uri, $params, %passed_params ) 

( $params, %passed_params ) );

    return $self->_parse( $response->{'status'} eq '200' ? decode_json $response->{'content'} : undef );
}

sub _parse {
    my ( $self, $response ) = @_;

    if ( !$r