Yet Another CPAN Grep

CatalystX-OAuth2 ( E/ED/EDENC/CatalystX-OAuth2-0.001002.tar.gz, EDENC, 2012; MetaCPAN )

CatalystX-OAuth2/lib/CatalystX/OAuth2/ActionRole/Token.pm ( view source; MetaCPAN )

e::Token;
use Moose::Role;
use JSON::Any;

# ABSTRACT: A role for building token-building actions

with 'CatalystX::OAuth2::ActionRole::RequestInjector';

my $json = JSON::Any->new;

after execute =>

sub {
  my($self, $controller, $c) = @_;
  $c->res->body($json->objToJson($c->req->oauth2->query_parameters));
};

1;

__END__
=pod

=head1 NAME

CatalystX::OAuth2::ActionRole::Token - A role for buil

CatalystX-OAuth2 ( E/ED/EDENC/CatalystX-OAuth2-0.001002.tar.gz, EDENC, 2012; MetaCPAN )

CatalystX-OAuth2/lib/Catalyst/Authentication/Credential/OAuth2.pm ( view source; MetaCPAN )

uth2;
use Moose;
use MooseX::Types::Common::String qw(NonEmptySimpleStr);
use LWP::UserAgent;
use JSON::Any;
use Moose::Util;

# ABSTRACT: Authenticate against OAuth2 servers


has [qw(grant_uri token

nfo->{state} if exists $auth_info->{state};
  $uri->query_form($query);
  return $uri;
}

my $j = JSON::Any->new;

sub request_access_token {
  my ( $self, $callback_uri, $code, $auth_info ) = @_;
  m

uery);
  my $response = $self->ua->get($uri);
  return unless $response->is_success;
  return $j->jsonToObj( $response->decoded_content );
}

1;

__END__
=pod

=head1 NAME

Catalyst::Authentication::C