CPAN::Groonga

n 0.02

=cut

our $VERSION = '0.02';

use Carp qw(cluck);
use Data::Dumper;
use REST::Client;
use JSON::XS;
use URI;
use Scalar::Util qw(blessed reftype);
use Readonly;
use Exporter 'import';

use Mou

de_json( $response->responseContent() ) };
    if ($@) {
        cluck(  "Cannot parse response content "
              . $response->responseContent()
              . ", error msg: $@. Is this JSON?" 

s = {
        'Content-Type' => 'application/json',
        Authorization  => $key
    };
    my $response =
      eval { $self->ua->POST( $url, encode_json($data), $headers ); };
    cluck($@) if $@;