CPAN::Groonga

ose;
use Carp;
use LWP;
use LWP::UserAgent;
use LWP::Debug;
use SOAP::Lite;
use Data::Dumper;
use JSON;
use XML::Parser;
use XML::Parser::EasyTree;
$XML::Parser::EasyTree::Noempty = 1;
use Storable qw

'application/json');
    #$req->content($content);
    my $res = $ua->request($req);
    my $json;
    if ($res->is_success) {
        #deb($res->content."\n");
        $json = decode_json($res->conte

      deb Dumper($json)."\n";
        #deb($json->{'Status'}."\n");
    } else {
        deb($res->status_line, "\n");
        return; # error occurred - exit
    }

    #deb(@{$json}."\n");
    deb "