CPAN::Groonga

package WebService::Antigate::V2;

use strict;
use JSON::PP;
use MIME::Base64;
use parent 'WebService::Antigate';

sub new {
	my ($class, %args) = @_;
	
	# change some defaults
	$args{schem

->post(
		"$self->{scheme}://$self->{subdomain}$self->{domain}/createTask",
		Content => encode_json {
			clientKey => $self->{key},
			exists $opts{softId} ? ( softId => delete $opts{softId} ) : 

 $self->{errstr} = $response->status_line;
        return undef;
    }
	
	my $result = decode_json $response->decoded_content;
	if ($result->{errorId}) {
		$self->{errno} = $result->{errorCode};