CPAN::Groonga

UserAgent;
use JSON;

our $VERSION = '1.0.1';

our %API_URI = (
    'score'         => 'http://api.klout.com/1/klout.json',
    'users_show'    => 'http://api.klout.com/1/users/show.json',
    'users_

.klout.com/1/users/topics.json',
    'influenced_by' => 'http://api.klout.com/1/soi/influenced_by.json',
    'influencer_of' => 'http://api.klout.com/1/soi/influencer_of.json',
);

sub new {
    my ($

I
    my $url   = $API_URI{ $action };
    my $key   = $self->{'api_key'};
    my $users = encode_json(\@users);

    my $res = $self->{'ua'}->post($url, { 'key' => $key, 'users' => $users });

    un