File Coverage

lib/Plack/Middleware/OAuth/Handler/RequestTokenV2.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch			n/a
condition	0	5	0.0
subroutine	3	5	60.0
pod	2	2	100.0
total	14	31	45.1

package Plack::Middleware::OAuth::Handler::RequestTokenV2;
use warnings;
use strict;
use parent qw(Plack::Middleware::OAuth::Handler);

sub default_callback {
    my $self = shift;
    my $provider = $self->provider;
    my $env = $self->env;
    # 'REQUEST_URI' => '/oauth/twitter',
    # 'SCRIPT_NAME' => '/oauth',
    # 'PATH_INFO' => '/twitter',
    return URI->new( $env->{'psgi.url_scheme'} . '://' .
        $env->{HTTP_HOST} . $env->{SCRIPT_NAME} . '/' . lc($provider) . '/callback' );
}

sub run {
    my $self = shift;
    my $config = $self->config;

	# "https://www.facebook.com/dialog/oauth?client_id=YOUR_APP_ID&redirect_uri=YOUR_URL";
	my $uri = URI->new( $config->{authorize_url} );
    my %query = (
		client_id     => $config->{client_id},
		redirect_uri  => $config->{redirect_uri}  || $self->default_callback,
		response_type => $config->{response_type} || 'code',
		scope         => $config->{scope},
    );
	$uri->query_form( %query );
	return $self->redirect( $uri );
}

1;