CPAN::Groonga

 _POSINT _HASH _HASHLIKE};
use JSON;

our $VERSION = '1.02';

sub new	{
		
	my ($class, $args) = @_;
	my $self = bless($args, $class);
	$self->{format} = 'json';
	
	if ( $self->{secure} == 

;
}

sub decode {
	my $self = shift;
	my $json = JSON->new->allow_nonref;
	
	if ( length $_[0] == 0 ) {
		return {};
	}
	else {
		return $json->decode( $_[0] );
	}
}

sub account_system

uest = @_;
		
		my $json_request = encode_json \%request;
		my $results;
		
		$self->{client}->POST($self->{protocol}.$self->{realm}."/api/v3/clients.".$self->{format}, $json_request);
		
		$re