r35140 - in /trunk/libnet-google-authsub-perl: Build.PL Changes META.yml debian/changelog lib/Net/Google/AuthSub.pm

[mogaal-guest at users.alioth.debian.org]

Author: mogaal-guest
Date: Sun May 10 20:18:54 2009
New Revision: 35140

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35140
Log:
New upstream release, package done


Modified:
    trunk/libnet-google-authsub-perl/Build.PL
    trunk/libnet-google-authsub-perl/Changes
    trunk/libnet-google-authsub-perl/META.yml
    trunk/libnet-google-authsub-perl/debian/changelog
    trunk/libnet-google-authsub-perl/lib/Net/Google/AuthSub.pm

Modified: trunk/libnet-google-authsub-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-authsub-perl/Build.PL?rev=35140&op=diff
==============================================================================
--- trunk/libnet-google-authsub-perl/Build.PL (original)
+++ trunk/libnet-google-authsub-perl/Build.PL Sun May 10 20:18:54 2009
@@ -4,6 +4,7 @@
 my $build = Module::Build
   ->new( module_name  => "Net::Google::AuthSub",
          version_from => 'lib/Net/Google/AuthSub.pm',
+         license      => 'perl',
          requires     => {
                           'Test::More'            => '0.62',
                           'LWP::UserAgent'        => 0,

Modified: trunk/libnet-google-authsub-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-authsub-perl/Changes?rev=35140&op=diff
==============================================================================
--- trunk/libnet-google-authsub-perl/Changes (original)
+++ trunk/libnet-google-authsub-perl/Changes Sun May 10 20:18:54 2009
@@ -1,3 +1,8 @@
+-0.5 ?? May 2009
+Change return value on failure.
+Allow access to auth_token and auth_type
+alias authorized to authorised
+
 - 0.4 28th July 2008
 Allow proxies
  

Modified: trunk/libnet-google-authsub-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-authsub-perl/META.yml?rev=35140&op=diff
==============================================================================
--- trunk/libnet-google-authsub-perl/META.yml (original)
+++ trunk/libnet-google-authsub-perl/META.yml Sun May 10 20:18:54 2009
@@ -1,10 +1,12 @@
 ---
 name: Net-Google-AuthSub
-version: 0.4
+version: 0.5
 author:
   - 'Simon Wistow <simon at thegestalt.org>'
 abstract: interact with sites that implement Google style AuthSub
-license: unknown
+license: perl
+resources:
+  license: http://dev.perl.org/licenses/
 requires:
   LWP::UserAgent: 0
   Test::More: 0.62
@@ -12,7 +14,7 @@
 provides:
   Net::Google::AuthSub:
     file: lib/Net/Google/AuthSub.pm
-    version: 0.4
+    version: 0.5
   Net::Google::AuthSub::Response:
     file: lib/Net/Google/AuthSub/Response.pm
 generated_by: Module::Build version 0.2808

Modified: trunk/libnet-google-authsub-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-authsub-perl/debian/changelog?rev=35140&op=diff
==============================================================================
--- trunk/libnet-google-authsub-perl/debian/changelog (original)
+++ trunk/libnet-google-authsub-perl/debian/changelog Sun May 10 20:18:54 2009
@@ -1,3 +1,9 @@
+libnet-google-authsub-perl (0.5-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Alejandro Garrido Mota <garridomota at gmail.com>  Sun, 10 May 2009 15:46:12 -0430
+
 libnet-google-authsub-perl (0.4-1) unstable; urgency=low
 
   * Initial Release (Closes: #526869).

Modified: trunk/libnet-google-authsub-perl/lib/Net/Google/AuthSub.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-authsub-perl/lib/Net/Google/AuthSub.pm?rev=35140&op=diff
==============================================================================
--- trunk/libnet-google-authsub-perl/lib/Net/Google/AuthSub.pm (original)
+++ trunk/libnet-google-authsub-perl/lib/Net/Google/AuthSub.pm Sun May 10 20:18:54 2009
@@ -7,7 +7,7 @@
 use Net::Google::AuthSub::Response;
 use URI;
 
-$VERSION  = '0.4';
+$VERSION  = '0.5';
 $APP_NAME = __PACKAGE__."-".$VERSION;
 
 use constant CLIENT_LOGIN => 0;
@@ -194,9 +194,12 @@
 sub _response_failure {
     my $self = shift;
     my $r    = shift;
-    $@ = $r->content;
-    return undef;
-}
+    $@ = $r->content;   
+    return Net::Google::AuthSub::Response->new(
+        $r,
+        $self->{url},
+        _compat => $self->{_compat}
+    ); }
 
 
 =head2 authorised 
@@ -210,6 +213,13 @@
     return defined $self->{_auth};
 
 }
+
+=head2 authorized 
+
+An alias for authorized.
+
+=cut
+*authorized = \&authorised;
 
 =head2 auth <username> <token>
 
@@ -228,7 +238,30 @@
     return 1;
 }
 
-
+=head2 auth_token [token] 
+
+Get or set the current auth token
+
+=cut
+sub auth_token {
+    my $self = shift;
+    $self->{_auth} = shift if @_;
+    return $self->{_auth};
+}
+
+=head2 auth_type [type]
+
+Get or set the current auth type
+
+Returns either C<$Net::Google::AuthSub::CLIENT_LOGIN> or 
+C<$Net::Google::AuthSub::AUTH_SUB>.
+
+=cut
+sub auth_type {
+    my $self = shift;
+    $self->{_auth_type} = shift if @_;
+    return $self->{_auth_type};
+}
 
 =head2 request_token <next> <scope> [option[s]]