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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Feb  7 04:47:24 2009
New Revision: 18278

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

Log:
 r19683 at sunnavys-mb:  sunnavy | 2009-02-07 17:46:45 +0800
 a bit improvement for the password test


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	Sat Feb  7 04:47:24 2009
@@ -11,13 +11,12 @@
 has 'password' => (
     isa       => 'Str',
     is        => 'rw',
-    predicate => 'has_password',
 );
 
 
 sub signin {
     my $self = shift;
-    $self->ask_password unless $self->has_password;
+    $self->ask_password unless $self->password && length $self->password;
 
     $self->mech->follow_link(
         url_regex => qr!^https?://www\.google\.com/accounts/Login! )