Yet Another CPAN Grep

Plack-Middleware-HatenaOAuth ( A/AS/ASTJ/Plack-Middleware-HatenaOAuth-0.02.tar.gz, ASTJ, 2019; MetaCPAN )

Plack-Middleware-HatenaOAuth/lib/Plack/Middleware/HatenaOAuth.pm ( view source; MetaCPAN )

ret consumer login_path);
use Plack::Request;
use Plack::Session;

use OAuth::Lite::Consumer;
use JSON::XS;

use constant +{
    SITE               => q{https://www.hatena.com},
    REQUEST_TOKEN_PATH

hatena.ne.jp/oauth/authorize},
    USER_INFO_URL      => q{https://n.hatena.ne.jp/applications/my.json},
};

sub prepare_app {
    my ($self) = @_;
    die join(
        "\n",
        'No consumer_key


        token  => $access_token,
    );
    $res->is_success or return;
    return eval { decode_json($res->decoded_content || $res->content) };
}

sub _error {
    my ($self, $code, $message) = @_;