OAuth::Lite::SignatureMethod - signature method base class
say $signature_method_class->method_name;
my $method = $signature_method_class->new(
consumer_secret => $consumer_secret,
token_secret => $token_secret,
);
my $signature = $method->sign($text);
if ($method->verify($text, $signature)) {
say "valid signature";
}
SignatureMethod base class. Create subclasses for arbitrary signature method inheriting this class.
Build body hash according to the spec http://oauth.googlecode.com/svn/spec/ext/body_hash/1.0/drafts/4/spec.html
my $hash = $method_class->build_body_hash($content);
say $hash;
Set signature method name. Use this in subclass.
$method_class->method_name('HMAC-SHA1');
say $method_class->method_name;
my $method = $signature_method_class->new(
consumer_secret => $consumer_secret,
token_secret => $token_secret,
);
Returns consumer_secret and token_secret as encoded key format.
my $key = $method->secrets_as_key;
Create signature from passed base text
This is an abstract method. Define this in subclass.
my $signature = $method->sign($base_text);
Check if signature is valid with base text
my $signature_is_valid = $method->verify($base_text, $signature);
if ($signature_is_valid) {
...
}
OAuth::Lite::SignatureMethod::HMAC_SHA1 OAuth::Lite::SignatureMethod::PLAINTEXT OAuth::Lite::SignatureMethod::RSA_SHA1
Lyo Kato, lyo.kato _at_ gmail.com
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.
