view release on metacpan or  search on metacpan

lib/DomainOperations/ResellerClubHTTP.pm  view on Meta::CPAN

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

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

		#		print Dumper $perl_scalar;

		#$res->decoded_content;
		return { $self->formatdomains($perl_scalar), 'error' => 0, };
	}
	else {

		#		print Dumper $req;
		return { error => 1, errormessage => $res->status_line, };
	}
}

sub formatdomains() {