CPAN::Groonga

# ABSTRACT: Client to a {JSON:API} service (http://jsonapi.org/) v1.0
package PONAPI::Client;

our $VERSION = '0.002012';

use Moose;

use JSON::MaybeXS qw( decode_json );

use PONAPI::Client::Request

der = (
        ( $args{body} ? ( 'Content-Type', 'application/vnd.api+json' ) : () ),
        'Accept', 'application/vnd.api+json'
    );

    my ($status, $content, $failed, $e);
    ($status, $cont

atus};

            $self->ua->after_request($res);

            $content = $res->{body} ? decode_json( $res->{body} ) : '';
            1;
        }
        or do {
            ($failed, $e) = (1, $@

# ABSTRACT: request class
package PONAPI::Client::Request;

use Moose::Role;

use JSON::MaybeXS qw< encode_json >;

use PONAPI::Utils::URI qw< to_uri >;

requires 'method';
requires 'path';

has 'uri_

lf->_build_query_string )
            : ( $self->can('data')
                  ? ( body => encode_json( { data => $self->data } ) )
                  : ()
              )
        )
    );
}

sub _buil