File Coverage

blib/lib/OAuth/Simple.pm

Criterion	Covered	Total	%
statement	12	54	22.2
branch	0	26	0.0
condition	0	31	0.0
subroutine	4	9	44.4
pod	5	5	100.0
total	21	125	16.8

package OAuth::Simple;

use 5.010;
use strict;
use warnings;

use HTTP::Request::Common;
require LWP::UserAgent;
require JSON;
require Carp;

our $VERSION = '1.01';


sub new {
    my $class = shift;
    my $self = bless {@_}, $class;

    Carp::croak("app_id, secret and postback required for this action")
      unless ($self->{app_id} && $self->{secret} && $self->{postback});

    $self->{ua}   ||= LWP::UserAgent->new();
    $self->{json} ||= JSON->new;

    return $self;
}


sub authorize {
    my ($self, $params) = @_;

    my %params; %params = %$params if $params && %$params;

    my $url = delete $params{url};
    Carp::croak("Authorize method URL required for this action") unless ($url);
    $url = URI->new($url);
    $url->query_form(
        client_id     => $self->{app_id},
        redirect_uri  => $self->{postback},
        %params,
    );

    return $url;
}

sub request_access_token {
    my ( $self, $params ) = @_;

    my %params; %params = %$params if $params && %$params;

    my ( $url, $code, $raw, $http_method ) = delete @params{ qw(url code raw http_method) };
    Carp::croak("code and url required for this action") unless $code && $url;

    my $response = $self->{ua}->request($self->prepare_http_request(
        url         => $url,
        http_method => $http_method,
        params      => {
            client_secret => $self->{secret},
            client_id     => $self->{app_id},
            code          => $code,
            redirect_uri  => $self->{postback},
            %params,
        },
    ));

    return $response->decoded_content unless $response->is_success;
    return $response->content if $raw;
    return $self->{json}->decode($response->content);
}

sub request_data {
    my ( $self, $params ) = @_;

    my %params; %params = %$params if $params && %$params;

    my ( $url, $access_token, $raw, $http_method, $token_name ) =
        delete @params{ qw(url access_token raw http_method token_name) };
    Carp::croak("url and access_token required for this action")
      unless ($url && $access_token);

    my $response = $self->{ua}->request($self->prepare_http_request(
        url         => $url,
        http_method => $http_method,
        params      => {
            ($token_name || 'access_token') => $access_token,
            %params
        },
    ));

    return 0 unless $response->is_success;
    return $response->content if $raw;
    return $self->{json}->decode($response->content);
}

sub prepare_http_request {
    my ( $self, %params ) = @_;

    $params{http_method} ||= 'GET';

    my $req;
    if ($params{http_method} eq 'GET') {
        my $url = URI->new($params{url});
        $url->query_form( %{$params{params}} ) if $params{params};
        $req = GET $url;
    }
    else {
        $req = POST $params{url}, $params{params};
    }

    return $req;
}


1;


__END__