[BACK]Return to OpenAMD.pm CVS log [TXT][DIR] Up to [local] / HOPE / Net-OpenAMD / lib / Net

Diff for /HOPE/Net-OpenAMD/lib/Net/OpenAMD.pm between version 1.3 and 1.19

version 1.3, 2010/06/24 23:14:23 version 1.19, 2010/07/14 06:21:23
Line 1 
Line 1 
 package Net::OpenAMD;  package Net::OpenAMD;
   
 # $AFresh1: OpenAMD.pm,v 1.2 2010/06/24 22:10:10 andrew Exp $  # $AFresh1: OpenAMD.pm,v 1.18 2010/07/13 00:14:21 andrew Exp $
   
 use warnings;  use warnings;
 use strict;  use strict;
 use Carp;  use Carp;
   
 use version; our $VERSION = qv('0.0.1');  use version; our $VERSION = qv('0.1.0');
   my $BASE_URI = 'https://api.hope.net/api/';
   
 my $BASE_URL = 'https://api.hope.net/api/';  use Scalar::Util qw( refaddr );
   *_ident = \&refaddr;
   
 use Class::Std::Utils;  
   
 use LWP::UserAgent;  use LWP::UserAgent;
   use URI;
 use Net::OAuth;  use Net::OAuth;
 use JSON::Any;  use JSON;
   
 {  {
   
     my @attr_refs = \();      my @attr_refs = \(
           my %base_uri_of,
           my %ua_of, my %auth_of, my %actions_of,
           my %json_of,
       );
   
     sub new {      sub new {
         my ( $class, $options ) = @_;          my ( $class, $options ) = @_;
         my $self = bless anon_scalar(), $class;          my $self = bless do { \my $x }, $class;
         my $ident = ident($self);          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;          return $self;
     }      }
   
     sub _get { croak 'Unsupported' }      sub get {
           my ( $self, $action, $query ) = @_;
           my $ident = _ident($self);
   
     sub location  { my $self = shift; return $self->_get( 'location',  @_ ) }          my $uri = URI->new_abs( $action . '/', $base_uri_of{$ident} );
     sub speakers  { my $self = shift; return $self->_get( 'speakers',  @_ ) }          $uri->query_form($query);
     sub talks     { my $self = shift; return $self->_get( 'talks',     @_ ) }  
     sub interests { my $self = shift; return $self->_get( 'interests', @_ ) }          my $response = $ua_of{$ident}->get($uri);
     sub users     { my $self = shift; return $self->_get( 'users',     @_ ) }          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 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  1;    # Magic true value required at end of module
Line 48 
Line 95 
   
 =head1 VERSION  =head1 VERSION
   
 This document describes Net::OpenAMD version 0.0.1  This document describes Net::OpenAMD version 0.0.3
   
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
     use Net::OpenAMD;      use Net::OpenAMD;
   
 =for author to fill in:      my $amd = Net::OpenAMD->new();
     Brief code example(s) here showing commonest usage(s).  
     This section will be as far as many users bother reading      my $location = $amd->location({ area => 'Engressia' });
     so make it as educational and exeplary as possible.  
   
   
 =head1 DESCRIPTION  =head1 DESCRIPTION
   
 This module is to make it easy to grab information from the OpenAMD project at  This module is to make it easy to grab information from the OpenAMD project at
 The Next Hope.  The Next Hope.
   
   http://wiki.hope.net/Attendee_Meta-Data
   
 http://amd.hope.net/  http://amd.hope.net/
   
 http://amd.hope.net/2010/05/openamd-api-released-v1-1-1/  http://amd.hope.net/2010/05/openamd-api-released-v1-1-1/
   
   http://travisgoodspeed.blogspot.com/2010/06/hacking-next-hope-badge.html
   
 =head1 INTERFACE  =head1 INTERFACE
   
 =for author to fill in:  =head2 new
     Write a separate section listing the public components of the modules  
     interface. These normally consist of either subroutines that may be  
     exported, or methods that may be called on objects belonging to the  
     classes provided by the module.  
   
   Create a new object for accessing the OpenAMD API.
   
 =head1 DIAGNOSTICS      my $amd = Net::OpenAMD->new( $options );
   
 =for author to fill in:  $options is a hashref with configuration options.
     List every single error and warning message that the module can  
     generate (even the ones that will "never happen"), with a full  
     explanation of each problem, one or more likely causes, and any  
     suggested remedies.  
   
   Current options are
   
 =over  =over
   
 =item C<< Error message here, perhaps with %s placeholders >>  =item base_uri
   
 [Description of error here]  A URL to the API, currently defaults to https://api.hope.net/api/
   
 =item C<< Another error message here >>  Most likely it should end with a / to make URI happy, so notice that if you
   are having 404 errors you don't expect.
   
 [Description of error here]  =item ua
   
 [Et cetera, et cetera]  Should be a pre-configured LWP::UserAgent or similar that returns a
   HTTP::Response object when its get method is called with a URI.
   
 =back  =back
   
   =head2 get
   
   This is the main method, although probably never used.  It has better/easier
   ways to access the different actions of the API.
   
       my $data = $amd->get( $action, $params );
   
   $params are anything that are supported by URI->query, they will get passed
   on the request.
   
   Here $data is a the JSON returned by the API converted to Perl reference.
   
   Helper methods you can call as $amd->method($params) are:
   
   =over
   
   =item interests
   
   =item location
   
   =item new
   
   =item speakers
   
   =item stats
   
   =item talks
   
   =item users
   
   =back
   
   Unless specified, there is nothing different about any of the action methods
   than just calling get($action) instead.  Depending on API changes, this may
   not always be the case.
   
   =head1 DIAGNOSTICS
   
   All methods should croak when an error occurs.
   If the remote API returns a successful response that contains valid JSON, that
   will be decoded and returned.
   
 =head1 CONFIGURATION AND ENVIRONMENT  =head1 CONFIGURATION AND ENVIRONMENT
   
 =for author to fill in:  
     A full explanation of any configuration system(s) used by the  
     module, including the names and locations of any configuration  
     files, and the meaning of any environment variables or properties  
     that can be set. These descriptions must also include details of any  
     configuration language used.  
   
 Net::OpenAMD requires no configuration files or environment variables.  Net::OpenAMD requires no configuration files or environment variables.
   
   Net::OpenAMD uses LWP::UserAgent for requests and environment for that is
   not cleared.
   
 =head1 DEPENDENCIES  =head1 DEPENDENCIES
   
 =over  =head3 L<LWP::UserAgent>
   
 =item LWP::UserAgent  =head3 L<URI>
   
 =item Net::OAuth  =head3 L<Net::OAuth>
   
 =item JSON::Any  =head3 L<JSON::Any>
   
 =back  
   
 =head1 INCOMPATIBILITIES  =head1 INCOMPATIBILITIES
   
 =for author to fill in:  
     A list of any modules that this module cannot be used in conjunction  
     with. This may be due to name conflicts in the interface, or  
     competition for system or program resources, or due to internal  
     limitations of Perl (for example, many modules that use source code  
     filters are mutually incompatible).  
   
 None reported.  None reported.
   
   
 =head1 BUGS AND LIMITATIONS  =head1 BUGS AND LIMITATIONS
   
 =for author to fill in:  
     A list of known problems with the module, together with some  
     indication Whether they are likely to be fixed in an upcoming  
     release. Also a list of restrictions on the features the module  
     does provide: data types that cannot be handled, performance issues  
     and the circumstances in which they may arise, practical  
     limitations on the size of data sets, special cases that are not  
     (yet) handled, etc.  
   
 No bugs have been reported.  No bugs have been reported.
   
   =over
   
   =item Currently it does not support the OAuth that is required to log into the
   API and get information.
   
   =back
   
 Please report any bugs or feature requests to  Please report any bugs or feature requests to
 C<bug-net-openamd@rt.cpan.org>, or through the web interface at  C<bug-net-openamd@rt.cpan.org>, or through the web interface at
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.19
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>