File Coverage

blib/lib/OAuth2/Box.pm

Criterion	Covered	Total	%
statement	34	45	75.5
branch	0	4	0.0
condition	0	3	0.0
subroutine	11	14	78.5
pod	3	3	100.0
total	48	69	69.5

package OAuth2::Box;

# ABSTRACT: Authorize with Box.com

use strict;
use warnings;

use Carp::Assert;
use HTTP::Tiny;
use JSON;
use Moo;
use Types::Standard qw(Str InstanceOf);
use URI;

our $VERSION = 0.03;

use constant BOX_URL => 'https://www.box.com/api/oauth2/';

has url           => ( is => 'ro', isa => Str, required => 1, default => sub { BOX_URL . 'authorize' } );
has token_url     => ( is => 'ro', isa => Str, required => 1, default => sub { BOX_URL . 'token' } );
has client_id     => ( is => 'ro', isa => Str, required => 1 );
has client_secret => ( is => 'ro', isa => Str, required => 1 );
has redirect_uri  => ( is => 'ro', isa => Str, required => 1 );

has agent => ( is => 'ro', isa => InstanceOf["HTTP::Tiny"], lazy => 1, default => sub { HTTP::Tiny->new } );
has jsonp => ( is => 'lazy', isa => InstanceOf["JSON"] );

sub _build_jsonp { JSON->new->allow_nonref }

sub authorization_uri {
    my ($self, %param) = @_;

    assert( $param{state}, 'need state' );

    my $uri = URI->new( $self->url );

    $uri->query_form(
        client_id     => $self->client_id,
        response_type => 'code',
        redirect_uri  => $self->redirect_uri,
        state         => $param{state},
    );

    return $uri;
}

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

    assert( $param{code}, 'need code' );

    return $self->_do_request(
        code           => $param{code},
        grant_type     => 'authorization_code',
    );
}

sub refresh_token {
    my ($self, %param) = @_;

    assert( $param{refresh_token}, 'need refresh_token' );

    return $self->_do_request(
        refresh_token  => $param{refresh_token},
        grant_type     => 'refresh_token',
    );
}

sub _do_request {
    my ($self, %param) = @_;

    my $result = $self->agent->post_form(
        $self->token_url,
        {
            client_id      => $self->client_id,
            client_secret  => $self->client_secret,
            redirect_uri   => $self->redirect_uri,
            %param,
        },
    );

    if ( $result->{success} and $result->{content} ) {
        my $data = $self->jsonp->decode( $result->{content} );

        return wantarray ?
            ( $data->{access_token}, $data ) :
            $data->{access_token};
    }

    return;
}

1;

__END__