view release on metacpan or  search on metacpan

lib/Dancer/Plugin/Auth/Twitter.pm  view on Meta::CPAN

    if (!$denied && $token && $token_secret && $verifier) {
        # everything went well:
        my $access = twitter->oauth_access_token({
            token        => $token,
            token_secret => $token_secret,
            verifier     => $verifier,
        });
        my $twitter_user_hash;
        my $success = eval {
            $twitter_user_hash = twitter->verify_credentials({
                -token        => $access->{oauth_token},
                -token_secret => $access->{oauth_token_secret},
            });
            1;
        };
        if (!$success || !$twitter_user_hash) {
            Dancer::Logger::core("no twitter_user_hash or error: $@");
            return redirect $callback_fail;
        }
        $twitter_user_hash->{'access_token'} = $access->{oauth_token},

t/basic-app.t  view on Meta::CPAN

$twitter->set_always(oauth_authorization_url => 'https://twitter.burp/authorize');
$twitter->set_always(oauth_request_token => {
    oauth_token        => 'my_test_request_token',
    oauth_token_secret => 'my_test_request_token_secret',
});
$twitter->set_always(oauth_access_token => {
    oauth_token        => 'access_token',
    oauth_token_secret => 'access_token_secret',
});
#$twitter->set_always(access_token_secret => 'access_token_secret');
$twitter->mock('verify_credentials' => sub { return \%user });

$Dancer::Plugin::Auth::Twitter::_twitter = $twitter;

dancer_response GET => '/clear';

my $resp;

ok $resp = dancer_response(GET => '/'), 'got / from test app';
response_redirect_location_is $resp, $twitter->oauth_authentication_url,
    'Unauthenticated access redirects to authentication URL';