CPAN::Groonga

23abc112abc123abc123',
    responce => 'json'
  );

  # Get account balance in JSON format
  my $balance_json = $Anticaptcha->getBalance();
  print $balance_json,"\n";

See L<Anticaptcha::Request> for

ON);
require Exporter;
use Exporter;
@ISA = ('Exporter');

$VERSION = "1.02";
require 5.010;

use JSON ();
use LWP ();

use Anticaptcha ();

use Carp ();

sub new
{
	# Check for common user mistake
	C

	my $json = JSON::encode_json($req);

	my $res = $self->request({
		task => 'createTask',
		data => $json
	});
	if($self->{responce} eq 'json'){
		return $res;
	}else{
		return JSON::decode_json($res

$self) = @_;
	my $json = JSON::encode_json({clientKey => $self->{clientKey}});

	my $res = $self->request({
		task => 'getBalance',
		data => $json
	});
	if($self->{responce} eq 'json'){
		return $res