base qw(Plack::Middleware);
use strict;
use warnings;
use English;
use Error::Pure qw(err);
use JSON::XS;
use LWP::Authen::OAuth2;
use Plack::Response;
use Plack::Session;
use Plack::Util::Accessor
ode' => $oauth2_code);
my $token_string_json = $session->get('oauth2.obj')->token_string;
my $token_string_hr = JSON::XS->new->decode($token_string_json);
$session->set('oauth2.token_string', $
redirect path.
No service provider.
=head1 DEPENDENCIES
L<English>,
L<Error::Pure>,
L<JSON::XS>,
L<LWP::Authen::OAuth2>,
L<Plack::Middleware>,
L<Plack::Response>,
L<Plack::Session>,
L<Plac