CPAN::Groonga

'endpoint'=>'http://rpc.clip.livedoor.com/');
__PACKAGE__->base_url('http://api.clip.livedoor.com/json/');

sub count{
	my $self = shift;
	my @urls = @_;
	return $self->request_api_xmlrpc()->request('

package WebService::RequestAPI::XMLRPCRequestAPI;
use strict;
use XMLRPC::Lite;
use JSON;
use utf8;
use base qw(WebService::RequestAPI::AbstractRequestAPI);


sub _request{
	my $self = shift;
	my $met

package WebService::RequestAPI::AbstractRequestAPI;
use strict;
use utf8;
use JSON;
use XML::Simple;
use base qw(Class::Data::Inheritable Class::Accessor);
__PACKAGE__->mk_accessors(qw/result cache_id

	my $self = shift;
	my %args = @_;
	$self->cache_manager($args{'cache_manager'});		
}

sub parse_json{
	my $self   = shift;
	if($self->cache_manager){
		if($self->cache_manager->is_cached($self->cach

>cache_id);
		}
		my $result = decode_json($self->result);
		$self->cache_manager->store_cache($self->cache_id,$result);
		return $result;	
	}
	return  decode_json($self->result);
}

sub parse_xml{
	m