File Coverage

blib/lib/WWW/Coderwall.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	2	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	1	100.0
total	21	36	58.3

package WWW::Coderwall;

# ABSTRACT: Simple Perl interface to the coderwall API

use WWW::Coderwall::User;
use LWP::UserAgent;
use Data::Printer;
use JSON;

use Moo;

our $VERSION = "0.003";



sub get_user {
    my ( $self, $username ) = @_;

    my $uri = "http://coderwall.com/$username.json";

    my %user_data = %{$self->_call_api($uri)};

    return WWW::Coderwall::User->new(
        username    => $user_data{'username'},
        name        => $user_data{'name'},
        location    => $user_data{'location'},
        team        => $user_data{'team'},
        accounts    => $user_data{'accounts'},
        badges      => $user_data{'badges'},
        endorsements    => $user_data{'endorsements'},
    );
}


has http_agent => (
    is => 'ro',
    lazy => 1,
    default => sub {
        my $self = shift;
        my $ua = LWP::UserAgent->new;
        $ua->agent($self->http_agent_name);
        return $ua;
    },
);


has http_agent_name => (
    is => 'ro',
    lazy => 1,
    default => sub { __PACKAGE__.'/'.$VERSION },
);


sub _call_api {
    my ( $self, $uri ) = @_;

    my $response = $self->http_agent->get($uri);

    if ( $response->is_success ) {

        my $json = JSON->new->allow_nonref;

        return $json->decode( $response->decoded_content );

    }

    die __PACKAGE__.' API request failed: ' . $response->status_line. "\n";
}


1;

__END__