Changeset 4778

Timestamp:

01/17/08 16:43:32 (5 years ago)

Author:

lyokato

Message:

lang/perl/Atompub-Client-OAuth: bugfix

Files:

• lang/perl/Atompub-Client-OAuth/trunk/lib/Atompub/Client/OAuth.pm (modified) (5 diffs)

lang/perl/Atompub-Client-OAuth/trunk/lib/Atompub/Client/OAuth.pm

@@ -1 @@
-package Atompub::Client::OAuth:
+package Atompub::Client::OAuth;
 
 use strict;
@@ -32 +32 @@
     $your_app->redirect($consumer->url_to_authorize());
 
-    # after use authorized your application as a consumer.
+    # after user authorized your application as a consumer.
     my $atoken = $consumer->get_access_token( token => $atoken );
 
@@ -47 +47 @@
     my ($client, $consumer) = @_;
     if ($consumer) {
-        unless (eval{ $consumer->isa('OAuth::Lite::Consumer') })
+        unless (eval{ $consumer->isa('OAuth::Lite::Consumer') }) {
             Carp::croak(qq/consumer should be OAuth::Lite::Consumer object/)
         }
@@ -58 +58 @@
     my ($client, $token) = @_;
     if ($token) {
-        unless (eval{ $consumer->isa('OAuth::Lite::Token') })
+        unless (eval{ $token->isa('OAuth::Lite::Token') }) {
             Carp::croak(qq/consumer should be OAuth::Lite::Token object/)
         }
@@ -95 +95 @@
 at your option, any later version of Perl 5 you may have available.
 
-
 =cut