Perl Net :: OAuthの問題

Question

私はNet::OAuthモジュールをYammer APIで承認しようとしています。次のコードスニペットを用意しています。

$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A; 
my $q = new CGI; 

my $request = Net::OAuth->request("request token")->from_hash($q->Vars, 
       request_url => $self->_request_token_url, 
       request_method => $q->request_method, 
       consumer_secret => $self->consumer_private, 
      ); 

しかし、私は試してみて、私のテストを実行する場合、以下のように、それはエラーがスローされます。

Expected a hash! at /Library/Perl/5.8.8/Net/OAuth/Message.pm line 241. 

は、私は明白な構文エラーをしたか、私はOAuthのモジュール自体を見ているつもりですがありますか？

Net::OAuth::Message

sub from_hash { 
    my $proto = shift; 
    my $class = ref $proto || $proto; 
    my $hash = shift; 
    if (ref $hash ne 'HASH') { 
     die 'Expected a hash!'; 
    } 
    my %api_params = @_; 

で

Answer 1

$q->Varsはスカラーコンテキストでハッシュリファレンス、リスト内の平坦化ハッシュを返す返すことを確認することができますコンテキスト。サブルーチン引数はリストコンテキストを作成します。したがって、あなたはする必要があります：

my $request = Net::OAuth->request("request token")->from_hash(
     scalar $q->Vars, 
     request_url => $self->_request_token_url, 
     request_method => $q->request_method, 
     consumer_secret => $self->consumer_private, 
); 

私はこれをチェックするコメントのためにアダムベレアに感謝します。

Answer 2

たぶん、あなたは$ Q->バールはハッシュリファレンス

my $vars = $q->Vars; 
print ref($vars);