[Bps-public-commit] r18308 - in Net-Google-Code/branches/write: . lib/Net/Google/Code

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Feb  9 19:58:08 2009
New Revision: 18308

Modified:
   Net-Google-Code/branches/write/   (props changed)
   Net-Google-Code/branches/write/lib/Net/Google/Code/Issue.pm
   Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Authentication.pm

Log:
 r19724 at sunnavys-mb:  sunnavy | 2009-02-10 08:57:38 +0800
 no more signin and signout


Modified: Net-Google-Code/branches/write/lib/Net/Google/Code/Issue.pm
==============================================================================
--- Net-Google-Code/branches/write/lib/Net/Google/Code/Issue.pm	(original)
+++ Net-Google-Code/branches/write/lib/Net/Google/Code/Issue.pm	Mon Feb  9 19:58:08 2009
@@ -181,7 +181,6 @@
     }
 }
 
-
 no Moose;
 __PACKAGE__->meta->make_immutable;
 

Modified: Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Authentication.pm
==============================================================================
--- Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Authentication.pm	(original)
+++ Net-Google-Code/branches/write/lib/Net/Google/Code/Role/Authentication.pm	Mon Feb  9 19:58:08 2009
@@ -13,7 +13,7 @@
     is  => 'rw',
 );
 
-sub signin {
+sub sign_in {
     my $self = shift;
     return 1 if $self->signed_in;
     $self->ask_password unless $self->password && length $self->password;
@@ -48,7 +48,7 @@
     return 1;
 }
 
-sub signout {
+sub sign_out {
     my $self = shift;
     $self->mech->follow_link(
         url_regex => qr!^https?://www\.google\.com/accounts/Logout! )
@@ -62,9 +62,6 @@
     return 1;
 }
 
-*sign_in  = \&signin;
-*sign_out = \&signout;
-
 sub ask_password {
     my $self = shift;
     while ( !defined $self->password or $self->password eq '' ) {
@@ -100,12 +97,10 @@
 =head1 INTERFACE
 
 
-=head2 signin
 =head2 sign_in
 
 sign in
 
-=head2 signout
 =head2 sign_out
 
 sign out