CPAN::Groonga

ET POST);
use LWP::ConnCache;
use Digest::SHA1;
use Params::Validate qw(validate);

use Carp;
use JSON::Any;

use fields qw(
    base
    key
    secret
);


use constant {
    SCOPE_DAILY => 1,
    S

 2,
    SCOPE_OVERALL => 3,
    SCOPE_YESTERDAY => 4,
};

our $connectionCacheLimit = 50;
our $json = JSON::Any->new(utf8=>1);

{
    my $cache;
    sub _getCache
    {
        $cache ||= LWP::ConnCac

,
            scope => 0,
    });

    my $response = $self->_get("ranks", %args);
    return $json->jsonToObj($response->content);
}

sub scoreSave
{
    my $self = shift;
    my %args = @_;
    vali