CPAN::Groonga

    }

    require HTTP::Tiny;
    $self->{_http} = HTTP::Tiny->new;

    require JSON::XS;
    $self->{_json} = JSON::XS->new;

    require URI::Encode;
    $self->{_urienc} = URI::Encode->new;

   

- $res->{reason}"
        unless $res->{success};
    my $decoded;
    eval { $decoded = $self->{_json}->decode($res->{content}) };
    die "Can't decode response from $url: $@" if $@;

    log_trace(

045_200)),
    };

    log_trace("API POST request: %s", $form);

    my $encoded_form = $self->{_json}->encode($form);

    my $options = {
        headers => {
            "X-API-Token" => $self->{k