Index of /perl/net/oauth

 Name                    Last modified      Size  Description
 Parent Directory                             -   
 Changes                 2008-11-22 09:17  1.6K  
 Net-OAuth-0.1.tar.gz    2008-11-22 09:17  4.1K  GZIP compressed docume>
 Net-OAuth-0.2.tar.gz    2008-11-22 09:17  4.7K  GZIP compressed docume>

NAME
    Net::OAuth - Base class for implementing OAuth method signing.

SYNOPSIS
     package Net::Fixies;
     use base qw (Net::OAuth);

     sub init {
             my $self = shift;
             my $args = shift;
         
             my %oauth_args = ('secret' => 'OH NOES!',
                               'key'    => 'OH HAI',
                               'sigalg' => 'sha1');,

             if (! $self->SUPER::init(\%oath_args)){
                     return undef;
             }                 

             # carry on...
     }

     sub api_call {
             my $self = shift;
             my $args = shift;

             my $meth = "GET";
             my $resource = "/foo/bar";

             $self->sign_args($meth, $resource, $args);

             # carry on...
     }

DESCRIPTION
    Base class for implementing OAuth method signing.

PACKAGE METHODS
  __PACKAGE__->new(%args)

    Valid arguments are :

    * key
        String. *Required*

    * secret
        String. *Required*

    * sigalg
        String. *Required*

    * token
        String.

    Returns a *Net::OAuth* object.

OBJECT METHODS YOU SHOULD CARE ABOUT
  $obj->sign_args($resource, \%args)

  $obj->generate_sig($resource, \%args)

    Returns a string.

OBJECT METHODS YOU MAY CARE ABOUT
  $obj->generate_sig_raw($resource, \%args)

    Returns a string.

  $obj->hash_sig($raw_sig)

    Returns a string.

  $obj->prepare_args(\%args)

  $obj->ensure_sigalg($sigalg)

    Returns an object.

  $obj->oauth_key($key)

    Returns a string.

  $obj->oauth_secret($secret)

    Returns a string.

  $obj->oauth_sigalg($sigalg)

    Returns a string.

  $obj->mk_timestamp()

    Returns a timestamp.

  $obj->mk_nonce()

    Returns an int.

VERSION
    0.2

DATE
    $Date: 2007/07/07 02:28:05 $

AUTHOR
    Aaron Straup Cope

SEE ALSO
    http://oauth.googlecode.com/svn/spec/trunk/oauth.html

TO DO
    Support for more hashing thingies.

    Documentation.

LICENSE
    Copyright (c) 2007 Aaron Straup Cope. All Rights Reserved.

    This is free software. You may redistribute it and/or modify it under
    the same terms as Perl itself.