File Coverage

blib/lib/WebService/Klout.pm

Criterion	Covered	Total	%
statement	19	49	38.7
branch	1	8	12.5
condition	1	3	33.3
subroutine	6	16	37.5
pod	9	10	90.0
total	36	86	41.8

package WebService::Klout;

use strict;
use warnings;
use Carp;
use LWP::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_topics'  => 'http://api.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 ($class, %arg) = @_;

    unless ( $arg{'api_key'} ||= $ENV{'KLOUT_API_KEY'} ) {
        croak 'api_key is empty';
    }

    my $ua = LWP::UserAgent->new('agent' => "WebService-Klout/$VERSION");

    bless { 'ua' => $ua, %arg }, $class;
}

sub score         { _request(@_) }
sub users_show    { _request(@_) }
sub users_topics  { _request(@_) }
sub influenced_by { _request(@_) }
sub influencer_of { _request(@_) }

sub _request {
    my ($self, @users) = @_;

    return unless @users;

    my $caller   = (caller 1)[3];
    my ($action) = $caller =~ /([^:]+)$/o;

    # parameter example http://developer.klout.com/docs/read/api/API
    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 });

    unless ( $res->is_success ) {
        $self->{'lwp.error'} = $res->status_line;

        if ( $res->code eq 403 ) {
            carp '403 Developer Inactive. Check your API key.';
        }
        else {
            carp $res->status_line;
        }

        return;
    }

    my $json = $res->decoded_content;
    my $data = decode_json($json);

    $self->{'klout.status'} = $data->{'status'};
    $self->{'klout.json'}   = $json;
    $self->{'klout.raw'}    = $data;

    return $data->{'users'};
}

sub json   { shift->{'klout.json'}   }
sub raw    { shift->{'klout.raw'}    }
sub status { shift->{'klout.status'} }
sub error  { shift->{'lwp.error'}    }

1;

__END__