NAME

WebService::Reddit - Thin wrapper around the Reddit OAuth API

VERSION

version 0.000002

SYNOPSIS

use strict;
use warnings;

use WebService::Reddit ();

my $client = WebService::Reddit->new(
    access_token  => 'secret-access-token',
    app_key       => 'my-app-id',
    app_secret    => 'my-app-secret',
    refresh_token => 'secret-refresh-token',
);

my $me = $client->get('/api/v1/me');

# Dump HashRef of response
use Data::Printer;
p( $me->content );

DESCRIPTION

beta beta beta. Interface is subject to change.

This is a very thin wrapper around the Reddit OAuth API.

CONSTRUCTOR AND STARTUP

new

• access_token

  A (once) valid OAuth access token. It's ok if it has expired.

• app_key

  The key which Reddit has assigned to your app.

• app_secret

  The secret which Reddit has assigned to your app.

• refresh_token

  A valid refresh_token which the Reddit API has provided.

• ua

  Optional. A useragent of the LWP::UserAgent family.

• base_uri

  Optional. Provide only if you want to route your requests somewhere other than the Reddit OAuth endpoint.

get

Returns a WebService::Reddit::Response object. Accepts an URL (or URI object), which may or may not include GET params. You should provide a relative URL. If you provide an absolute URL, your scheme and host will get clobbered with the base_uri.

my $me        = $client->get('/api/v1/me');
my $new_posts = $client->get('/r/perl/new?limit=25');

access_token

Returns the current access_token. This may not be the token which you originally supplied. If your supplied token has been expired, then this module will try to get you a fresh access_token.

access_token_expiration

Returns expiration time of access token in epoch seconds, if available. Check the predicate before calling this method in order to avoid a possible exception.

print $client->access_token_expiration
    if $client->has_access_token_expiration .

has_access_token_expiration

Predicate. Returns true if access_token_expiration has been set.

refresh_access_token

Tries to refresh the access_token. Returns true on success and dies on failure. Use the access_token method to get the new token if this method has returned true.

ua

Returns the UserAgent which is being used to make requests. Defaults to a WWW::Mechanize object.

AUTHOR

Olaf Alders olaf@wundercounter.com

COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Olaf Alders.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.