Lyo Kato > OAuth-Lite-1.32 > OAuth::Lite::SignatureMethod

Download:
OAuth-Lite-1.32.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  6
Open  3
View/Report Bugs
Source  

NAME ^

OAuth::Lite::SignatureMethod - signature method base class

SYNOPSIS ^

    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";
    }

DESCRIPTION ^

SignatureMethod base class. Create subclasses for arbitrary signature method inheriting this class.

METHODS ^

build_body_hash($content)

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;

method_name($method_name)

Set signature method name. Use this in subclass.

    $method_class->method_name('HMAC-SHA1');
    say $method_class->method_name;

new(%params)

    my $method = $signature_method_class->new(
        consumer_secret => $consumer_secret,
        token_secret    => $token_secret,
    );

secrets_as_key

Returns consumer_secret and token_secret as encoded key format.

    my $key = $method->secrets_as_key;

sign($base_text)

Create signature from passed base text

This is an abstract method. Define this in subclass.

    my $signature = $method->sign($base_text);

verify($base_text, $signature)

Check if signature is valid with base text

    my $signature_is_valid = $method->verify($base_text, $signature);
    if ($signature_is_valid) {
        ...
    }

SEE ALSO ^

OAuth::Lite::SignatureMethod::HMAC_SHA1 OAuth::Lite::SignatureMethod::PLAINTEXT OAuth::Lite::SignatureMethod::RSA_SHA1

AUTHOR ^

Lyo Kato, lyo.kato _at_ gmail.com

COPYRIGHT AND LICENSE ^

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.

syntax highlighting: