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

Return to OpenAMD.pm CVS log

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

Diff for /HOPE/Net-OpenAMD/lib/Net/OpenAMD.pm between version 1.1 and 1.2

version 1.1, 2010/06/24 22:45:25

version 1.2, 2010/06/24 23:10:10

Line 1

package Net::OpenAMD;

# $RedRiver$

# $AFresh1$

use warnings;

use strict;

Line 8

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

# Other recommended modules (uncomment to use):

my $BASE_URL = 'https://api.hope.net/api/';

# use IO::Prompt;

# use Perl6::Export;

# use Perl6::Slurp;

# use Perl6::Say;

use Class::Std::Utils;

# Module implementation here

use LWP::UserAgent;

use Net::OAuth;

use JSON::Any;

{

1; # Magic true value required at end of module

my @attr_refs = \();

sub new {

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

my $self = bless anon_scalar(), $class;

my $ident = ident($self);

return $self;

}

sub _get { croak 'Unsupported' }

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

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

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

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

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

sub stats { croak 'Unused feature' }

}

1; # Magic true value required at end of module

__END__

=head1 NAME

Net::OpenAMD - [One line description of module's purpose here]

Net::OpenAMD - Perl interface to the OpenAMD API

=head1 VERSION

Line 43

Line 63

=head1 DESCRIPTION

=for author to fill in:

This module is to make it easy to grab information from the OpenAMD project at

Write a full description of the module and its features here.

The Next Hope.

Use subsections (=head2, =head3) as appropriate.

http://amd.hope.net/

=head1 INTERFACE

Line 94

Line 114

=head1 DEPENDENCIES

=for author to fill in:

=over

A list of all the other modules that this module relies upon,

including any restrictions on versions, and an indication whether

the module is part of the standard Perl distribution, part of the

module's distribution, or must be installed separately. ]

None.

=item LWP::UserAgent

=item Net::OAuth

=item JSON::Any

=back

=head1 INCOMPATIBILITIES

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>