CPAN::Groonga

y ,
#Abhsihek jain

our $VERSION = '0.02';

use base 'DomainOperations';

use LWP::UserAgent;
use JSON::XS;
use Data::Dumper;
use HTTP::Request;
use constant ResellerClubHTTPURL_Sandbox    => 'https:/

    = shift;
	my $options = shift;
	$self->{req}->uri(
		    $self->{url}
		  . 'customers/signup.json?auth-userid='
		  . $self->{username}
		  . '&auth-password='
		  . $self->{password}
		  . '&use

lf->{ua}->request( $self->{req} );

	# check the outcome
	if ( $res->is_success ) {
		my $coder = JSON::XS->new->ascii->pretty->allow_nonref;

		my $perl_scalar = $coder->decode( $res->content );

		i