Input parameters MUST be byte strings, conforming to HTTP and/or OAuth (RFC 5849) specifications.
$result = authenticate_by_oauth1 ( request_method => $string, url => $url_record, http_authorization => $bytes, # or undef body_ref => \$bytes, # or undef container => undef, # 'authorization' (default) or 'query' or 'body' oauth_consumer_key => $string, client_shared_secret => $string, oauth_token => $string, # or undef token_shared_secret => $string, oauth_callback => $string, # or undef oauth_verifier => $string, # or undef );
warn "Signature base string: " . $result->{signature_base_string} . "\n"; warn "Request URL: " . $url->stringify . "\n"; warn "Authorization: " . ($result->{http_authorization} // '') . "\n"; warn "Body appended: " . $result->{body_appended} . "\n";
AUTHOR
Wakaba <wakaba@suikawiki.org>.
HISTORY
This module partially derived from Web::UserAgent::OAuth and Web::UserAgent::Functions::OAuth in the repository <https://github.com/wakaba/perl-web-useragent-functions>
.
LICENSE
Copyright 2009-2013 Hatena <https://www.hatena.ne.jp/>
.
Copyright 2013-2022 Wakaba <wakaba@suikawiki.org>.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.