CPAN::Groonga

package App::Kritika;

use strict;
use warnings;

our $VERSION = '0.05';

use JSON ();
use Cwd qw(abs_path);
use HTTP::Tiny;

sub new {
    my $class = shift;
    my (%params) = @_;

    my $self = {}

token},
                Accept        => 'application/json',
                'X-Version'   => $VERSION,
            },
            content => JSON->new->canonical(1)->encode(
                {
       

val { JSON::decode_json( $response->{content} )->{message} }
          || 'Unknown Error';

        die "Remote error: $response->{status} $response->{reason}: $message\n";
    }

    return JSON::dec