CPAN::Groonga

alidation;

use strict;
use vars qw(@ISA $VERSION @EXPORT);
use LWP::Simple;
use URI::Escape;
use JSON::PP;

$VERSION = '2.00';

require Exporter;
@ISA = qw(Exporter);

sub Init
{
	my ($class, $apikey

 . uri_escape($self->{api_key}) . '&format=json&email=' . uri_escape($email);
	
	my $contents = get($url);
	
	if (defined($contents))
	{
		return decode_json $contents;
	}
	else
	{
		return; # error c

 . uri_escape($self->{api_key}) . '&format=json&email=' . uri_escape($email);
	
	my $contents = get($url);
	
	if (defined($contents))
	{
		return decode_json $contents;
	}
	else
	{
		return; # error c