CPAN::Groonga

he SMS::Matrix API

use warnings;
use strict;

use LWP::UserAgent;
use HTTP::Request::Common;
use JSON();
## use Data::Dumper;

our $VERSION = '1.01';

################################################

blank');
   $self->status (1001);
   return;
  }

 my $json_txt = JSON::to_json ($rqp);
 if ($json_txt eq '')
  {
   $self->errstr ('JSON::to_json() returned NULL');
   $self->status (1000);
   return

;
 my $res = $ua->request
  (
   POST $rqp->{url},
   Content_Type  => 'application/json',
   Content       => $json_txt
  );

 ## print Dumper($rqp) . "\n\n";
 ## print Dumper($res) . "\n\n";

 if ($