Perl 为什么可以'；我不能通过Net:：Twitter:：OAuth获得Twitter写访问权限吗？

我在Twitter上注册了一个应用程序。我使用Net:：Twitter:：OAuth来管理与Twitter的交互

我设法重定向用户，让他在他的Twitter帐户中安装应用程序。该应用程序安装有读写访问权限。我读过access，但我没有为他发送任何tweet：Twitter返回呼叫未经授权

我正在使用我自己的Twitter帐户进行测试

以下是我使用的代码（Perl和Catalyst）：

你知道我遗漏了什么，或者我做错了什么吗？

for

Net:：Twitter:：Oauth

声明：

此模块已弃用。改用

Net:：Twitter

---

它似乎应该用于现代代码。

Thnaks，它似乎可以工作。如何获取用户ID？它需要获取用户状态，但我没有看到任何获取id/用户名的函数。事实证明，我没有最新版本：3.04003而不是3.04006

# step 1: Redirect user to Twitter
my $client = Net::Twitter::OAuth->new(
traits          => ['OAuth'],
consumer_key    => Bargain->config->{'consumer_key'},
consumer_secret => Bargain->config->{'consumer_secret'},
);

my $url = $client->oauth->get_authorization_url({ callback => $callback_url});

$c->response->cookies->{oauth} = {
      value => {
          token => $client->request_token,
          token_secret => $client->request_token_secret,
      },
};

$c->response->redirect($url);


# step 2 - After installing the app, Twitter redirects the user here
my $verifier = $c->req->params->{oauth_verifier};
my $oauth_token = $c->req->params->{oauth_token};

$client->request_token($client->request_token);
$client->request_token_secret($client->request_token_secret);

my($access_token, $access_token_secret) = 
    $client->request_access_token(verifier => $verifier);

# step 3 - With all the info, Access suer account
my $nt = Net::Twitter::OAuth->new(
     traits          => ['OAuth'], # 'API::REST', 
     consumer_key    => Bargain->config->{'consumer_key'},
     consumer_secret => Bargain->config->{'consumer_secret'},
);

$nt->access_token($access_token);
$nt->access_token_secret($access_token_secret);

if ( $nt->authorized ) {
    print "Authorized, sending tweets\n";
    print $nt->friends_timeline, "\n"; # OK

    $nt->update('First example'); # Does not work
}