CPAN::Groonga

ervice => 'cp');
    },
);

has 'json' =>
	(
		is => 'ro',
	    isa => 'JSON::XS',
	 	lazy => 1,
    	default => sub
		{
        	require JSON::XS;
        	return JSON::XS->new->utf8;
		}
	);

# Auth

ts=9999&alt=json";
	$url .= "&v=3.0";					# Gives more fields
    $self->get($url, $self->authsub->auth_params)
	or return;
    my $content = $self->ua->content;
    my $data = $self->json->decode($co

	{
		$_ = eval { $self->get("$url?alt=json", $self->authsub->auth_params) };
		$self->errstr(undef);
		if ($_)
		{
			$_ = $self->ua->content;
			$_ = $self->json->decode($_);
			$_ = $_->{entry}{cont