为什么我不能使用 Net::Twitter::OAuth 获得 Twitter 写入权限？

Question

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

我设法重定向用户以允许他在他的 Twitter 帐户中安装应用程序。该应用程序安装时具有读写访问权限。我有读取权限，但我没有设法代表他发送任何推文：推特返回该调用未经授权。

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

这是我使用的代码（Perl & Catalyst）：

# 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
}

知道我错过了什么，或者我做错了什么吗？

Answer 1

docs 的 Net::Twitter::Oauth 声明：

此模块已弃用。请改用Net::Twitter。

您似乎应该将Net::Twitter::Role::OAuth 用于现代代码。