view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    Author: Kenta Kase <kesin1202000@gmail.com>
    Date:   Sun May 4 16:53:15 2014 +0900

        Support Twitter API v1.1

        Change Net::Twitter::Lite to Net::Twitter::Lite::WithAPIv1_1

0.03 2013-04-24T06:11:16Z

    - Site::Twitter: catch exception from Net::Twitter::Lite and
      rethrow it to callback function
      (tokuhirom)
    - Site::Twitter: handle "Access denied" error
      (such as "Return to App" on the Deny and Cancel screens)
        (Takumi Akiyama)

0.02 2011-10-15

    - docs

0.01 2011-10-13

lib/Amon2/Auth/Site/Twitter.pm  view on Meta::CPAN

	$nt->request_token($cookie->[0]);
	$nt->request_token_secret($cookie->[1]);
    if (my $denied = $c->req->param('denied')) {
        return $callback->{on_error}->("Access denied");
    }
	my $verifier = $c->req->param('oauth_verifier');
    my ($access_token, $access_token_secret, $user_id, $screen_name) = eval {
        $nt->request_access_token(verifier => $verifier);
    };
    if ($@) {
        # Net::Twitter::Lite throws exception like following
        # GET https://twitter.com/oauth/access_token failed: 401 Unauthorized at /Users/tokuhirom/perl5/perlbrew/perls/perl-5.15.2/lib/site_perl/5.15.2/Net/Twitter/Lite.pm line 237.
		return $callback->{on_error}->($@);
    } else {
        return $callback->{on_finished}->($access_token, $access_token_secret, $user_id, $screen_name);
    }
}

1;
__END__