CPAN::Groonga

plemenation in Perl

class WebService::Postex;
use Carp qw(croak);
use HTTP::Request::Common;
use JSON::XS;
use LWP::UserAgent;
use URI;

field $base_uri :param;
field $generator_id :param;
field $sec

param = undef;

method _set_ua_defaults() {
    $ua->default_header(Accept        => 'application/json');
    $ua->default_header(Authorization => "Bearer $secret");
}

ADJUSTPARAMS {
    my $args = s

, $/;
    }

    my $json = decode_json($res->decoded_content);
    if ($json->{data}{status} eq 'error') {
        die "Error occurred calling Postex", $/;
    }
    return $json;
}

method generatio