File Coverage

blib/lib/Net/OpenAMD.pm

Criterion	Covered	Total	%
statement	30	63	47.6
branch	0	6	0.0
condition	0	13	0.0
subroutine	10	15	66.6
pod	3	3	100.0
total	43	100	43.0

package Net::OpenAMD;

# $AFresh1: OpenAMD.pm,v 1.20 2010/07/17 11:48:28 andrew Exp $

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.1.1');
my $BASE_URI = 'https://api.hope.net/api/';

use Scalar::Util qw( refaddr );
*_ident = \&refaddr;

use LWP::UserAgent;
use URI;
use Net::OAuth;
use JSON;

{

    my @attr_refs = \(
        my %base_uri_of,
        my %ua_of, my %auth_of, my %actions_of,
        my %json_of,
    );

    sub new {
        my ( $class, $options ) = @_;
        my $self = bless do { \my $x }, $class;
        my $ident = _ident($self);

        $options ||= {};

        croak 'Options should be a hashref' if ref $options ne 'HASH';

        $base_uri_of{$ident} = $options->{base_uri} || $BASE_URI;
        $ua_of{$ident}       = $options->{ua}       || LWP::UserAgent->new();
        $json_of{$ident}     = $options->{json}     || JSON->new();
        $actions_of{$ident}  = $options->{actions}
            || [qw( location speakers talks interests users )];

        foreach my $action ( @{ $actions_of{$ident} } ) {
            ## no critic
            no strict 'refs';
            *{$action} = sub { shift->get( $action, @_ ) };
        }

        # XXX Authenticate

        return $self;
    }

    sub get {
        my ( $self, $action, $query ) = @_;
        my $ident = _ident($self);

        my $uri = URI->new_abs( $action . '/', $base_uri_of{$ident} );
        $uri->query_form($query);

        my $response = $ua_of{$ident}->get($uri);
        croak $response->status_line if !$response->is_success;

        my $data;
        eval {
            $data = $json_of{$ident}->decode( $response->decoded_content );
        };
        croak "Invalid JSON from [$uri]" if $@;

        return $data;
    }

    sub stats { croak 'Unused feature' }

    sub DESTROY {
        my ($self) = @_;
        my $ident = _ident $self;

        foreach my $attr_ref (@attr_refs) {
            delete $attr_ref->{$ident};
        }

        return;
    }

}

1;    # Magic true value required at end of module
__END__