HOPE/Net-OpenAMD/lib/Net/OpenAMD.pm - diff

Return to OpenAMD.pm CVS log

Up to [local] / HOPE / Net-OpenAMD / lib / Net

version 1.9, 2010/06/27 04:45:07

version 1.10, 2010/06/27 04:59:32

Line 1

package Net::OpenAMD;

# $AFresh1: OpenAMD.pm,v 1.8 2010/06/27 03:23:27 andrew Exp $

# $AFresh1: OpenAMD.pm,v 1.9 2010/06/27 03:45:07 andrew Exp $

use warnings;

use strict;

Line 8

use version; our $VERSION = qv('0.0.1');

use Scalar::Util qw( refaddr );

*_ident = \&refaddr;

Line 20

{

my @attr_refs = \( my %base_url_of, my %ua_of, my %auth_of, );

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

sub new {

my ( $class, $options ) = @_;

Line 31

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

$base_url_of{$ident} = $options->{base_url} || $BASE_URL;

$base_uri_of{$ident} = $options->{base_uri} || $BASE_URI;

$ua_of{$ident} = $options->{ua} || LWP::UserAgent->new();

# XXX Authenticate

Line 43

my ( $self, $action, $query ) = @_;

my $ident = _ident($self);

my $uri = URI->new_abs( $action, $base_url_of{$ident} );

my $uri = URI->new_abs( $action, $base_uri_of{$ident} );

$uri->query($query);

my $response = $ua_of{$ident}->get($uri);

Line 124

=over

=item base_url

=item base_uri

A URL to the API, currently defaults to https://api.hope.net/api/