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

Return to OpenAMD.pm CVS log

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

version 1.8, 2010/06/27 04:23:27

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

Line 1

package Net::OpenAMD;

# $AFresh1: OpenAMD.pm,v 1.7 2010/06/27 03:11:22 andrew Exp $

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

use warnings;

use strict;

Line 43

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

my $ident = _ident($self);

my $uri = URI->new( $base_url_of{$ident} . '/' . $action );

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

$uri->query($query);

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

Line 55

return JSON::Any->jsonToObj( $response->decoded_content );

}

sub location { my $self = shift; return $self->get( 'location', @_ ) }

sub location { return shift->get( 'location', @_ ) }

sub speakers { my $self = shift; return $self->get( 'speakers', @_ ) }

sub speakers { return shift->get( 'speakers', @_ ) }

sub talks { my $self = shift; return $self->get( 'talks', @_ ) }

sub talks { return shift->get( 'talks', @_ ) }

sub interests { my $self = shift; return $self->get( 'interests', @_ ) }

sub interests { return shift->get( 'interests', @_ ) }

sub users { my $self = shift; return $self->get( 'users', @_ ) }

sub users { return shift->get( 'users', @_ ) }

sub stats { croak 'Unused feature' }

sub DESTROY {

my ($self) = @_;

Line 126

=item base_url

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

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

Most likely it should end with a / to make URI happy, so notice that if you

having 404 errors you don't expect.

=item ua