File Coverage

blib/lib/Amon2/Auth/Site/Instagram.pm

Criterion	Covered	Total	%
statement	15	29	51.7
branch	0	4	0.0
condition			n/a
subroutine	5	8	62.5
pod	1	3	33.3
total	21	44	47.7

package Amon2::Auth::Site::Instagram;
use Mouse;

use JSON;
use LWP::UserAgent;
use URI;

our $VERSION = "0.01";

has client_id => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);

has client_secret => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);

has redirect_url => (
    is  => 'ro',
    isa => 'Str',
);

has scope => (
    is      => 'ro',
    isa     => 'Str',
    default => sub { 'basic' },
);

has user_info => (
    is => 'rw',
    isa => 'Bool',
    default => 1,
);

has authorize_url => (
    is      => 'ro',
    isa     => 'Str',
    default => 'https://api.instagram.com/oauth/authorize',
);

has access_token_url => (
    is      => 'ro',
    isa     => 'Str',
    default => 'https://api.instagram.com/oauth/access_token',
);


has ua => (
    is => 'ro',
    isa => 'LWP::UserAgent',
    lazy => 1,
    default => sub {
        LWP::UserAgent->new(agent => "Amon2::Auth::Site::Instagram/$VERSION");
    },
);

no Mouse;
__PACKAGE__->meta->make_immutable;

sub moniker { 'instagram' }

sub auth_uri {
    my ($self, $c, $callback_url) = @_;

    my $uri = URI->new($self->authorize_url);
    $uri->query_form(
        client_id     => $self->client_id,
        redirect_uri  => $self->redirect_url,
        response_type => 'code',
        scope         => $self->scope,
    );

    return $uri->as_string;
}

sub callback {
    my ($self, $c, $callback) = @_;

    my $res = $self->ua->post($self->access_token_url, +{
        client_id     => $self->client_id,
        client_secret => $self->client_secret,
        grant_type    => 'authorization_code',
        redirect_uri  => $self->redirect_url,
        code          => $c->req->param('code'),
    });
    $res->is_success or do {
        warn $res->decoded_content;
        return $callback->{on_error}->($res->decoded_content);
    };

    $res = decode_json $res->content;

    my @args = ($res->{access_token});
    push @args, $res->{user} if $self->user_info;

    $callback->{on_finished}->(@args);
}



1;
__END__