CPAN::Groonga

ith this program.  If not, see <https://www.gnu.org/licenses/>.

package Groonga::ResultSet;

use JSON::PP;

use strict;
use warnings;

my $command_response_code = undef;
my @command_response_raw = ()

  my $self = {%args};

    if ($self->{decoded_content}) {
        @command_response_raw = decode_json($self->{decoded_content});
        $command_response_code = $command_response_raw[0][0][0];
     

my $post_request = HTTP::Request->new(POST => $uri);
    $post_request->content_type('application/json');
    $post_request->content($post_values);

    my $http_response = $user_agent->request($post_

his program.  If not, see <https://www.gnu.org/licenses/>.

package Groonga::Commands::Load;

use JSON;
use Carp 'croak';

use strict;
use warnings;
use Data::Dumper;

my $groonga_http_client = undef;

    $parsed_arguments{'table'} = $args->{'table'};
    }
    $parsed_arguments{'values'} = encode_json($args->{'values'});

    return \%parsed_arguments;
}

sub _parse_result {
    my $result = shift

ge Groonga::Commands::Delete;

use Carp 'croak';

use strict;
use warnings;
use Data::Dumper;
use JSON;
my $groonga_http_client = undef;
my $command_args = "";
my @delete_arguments = (
    'table',
  

ents;
}

sub _parse_result {
    my $result = shift;
    my %result_set = ();

    if ($result == JSON::PP::true) {
        $result = 1;
    } else {
        $result = 0;
    }
    $result_set{'is_suc