Changeset 5810

Timestamp:

01/29/08 23:27:00 (5 years ago)

Author:

yappo

Message:

lang/perl/WWW-HatenaLogin?:

• add login_uri and logout_uri method
  
• add username accessor
  
• WWW::HatenaDiary? friendry
  

Location:

lang/perl/WWW-HatenaLogin/trunk

Files:

• Changes (modified) (1 diff)
• lib/WWW/HatenaLogin.pm (modified) (4 diffs)
• t/90_01_login_with_pit.t (modified) (2 diffs)
• t/97_podspell.t (modified) (1 diff)

lang/perl/WWW-HatenaLogin/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension WWW::HatenaLogin
+
+0.02    
+        - add login_uri and logout_uri method
+        - add username accessor
+        - WWW::HatenaDiary friendry
 
 0.01    2008-01-29T22:28:09+09:00

lang/perl/WWW-HatenaLogin/trunk/lib/WWW/HatenaLogin.pm

@@ -64 +64 @@
 sub is_loggedin {
     my $self = shift;
-    $self->{mech}->get($self->{uri}->{login});
+    $self->{mech}->get($self->login_uri);
     $self->has_metalink;
 }
 
+sub login_uri { shift->{uri}->{login} }
+
+sub logout_uri { shift->{uri}->{logout} }
+
+sub username {
+    my $self = shift;
+    $self->{username} = defined $_[0] ? $_[0] : $self->{username};
+}
+
 sub login {
-    my $self = shift;
-
-    $self->{mech}->get($self->{uri}->{login});
+    my($self, $args) = @_;
+
+    if ($args) {
+        if ($args->{username}) {
+            $self->{username} = $args->{username};
+        }
+        if ($args->{password}) {
+            $self->{password} = $args->{password};
+        }
+    }
+
+    $self->{mech}->get($self->login_uri);
     $self->{mech}->submit_form(
         fields => {
@@ -85 +103 @@
 sub logout {
     my $self = shift;
-    $self->{mech}->get($self->{uri}->{logout});
+    $self->{mech}->get($self->logout_uri);
     $self->{logout_check} ? $self->{logout_check}->($self) : $self->has_metalink;
 }
@@ -232 +250 @@
 =back
 
-=head2 login ()
-
-=over 4
-
-  $session->login;
-
-Login to Hatena.
-username and password which are passed into C<new> method above will be used. 
-
+=head2 login ( [I<\%args>] )
+
+=over 4
+
+  $diary->login({
+      username => $username,
+      password => $password,
+  });
+
+Logs in to Hatena::Diary using C<username> and C<password>. If either
+C<username> or C<password> isn't passed into this method, the values
+which are passed into C<new> method above will be used.
+ 
 =back
 
@@ -285 +307 @@
 =back
 
+=head2 login_uri ()
+
+=over 4
+
+  $session->login_uri;
+
+return to login uri.
+
+=back
+
+=head2 logout_uri ()
+
+=over 4
+
+  $session->logout_uri;
+
+return to logout uri.
+
+=back
+
+=head2 username ('username')
+
+=over 4
+
+  $session->username;
+  $session->username('new_username');
+
+username accessor
+
+=back
+
 =head1 AUTHOR
 

lang/perl/WWW-HatenaLogin/trunk/t/90_01_login_with_pit.t

@@ -11 +11 @@
 use WWW::HatenaLogin;
 
-my $config = pit_get('hatena', require => {
+my $base_config = pit_get('hatena', require => {
     username => 'your username on hatena',
     password => 'your password on hatena'
@@ -30 +30 @@
 
     ok $session->login;
+    ok $session->logout;
+
+    {
+        local $@;
+        eval {
+            $session->login({
+                username => '___',
+                password => '___',
+            });
+        };
+        like $@, qr/Login failed. Please confirm your/;
+    }
+    ok !$session->logout;
+    {
+        local $@;
+        eval {
+            $session->login;
+        };
+        like $@, qr/Login failed. Please confirm your/;
+    }
+    ok !$session->logout;
+
+    ok $session->login({
+        username => $base_config->{username},
+        password => $base_config->{password},
+    });
+
+    ok $session->logout;
+    ok $session->login;
 
     ok $session->logout;
     ok !$session->logout;
     ok !$session->session_id;
+
+    ok $session->username, $base_config->{username};
+    $session->username('username');
+    ok $session->username, 'username';
 }
 
-hatena { %{ $config } };
-hatena { %{ $config }, com  => 1 };
-hatena { %{ $config }, labo => 1 };
+hatena { %{ $base_config } };
+hatena { %{ $base_config }, com  => 1 };
+hatena { %{ $base_config }, labo => 1 };
 
 my $session = WWW::HatenaLogin->new({
-    %{ $config },
+    %{ $base_config },
     nologin => 1,
 });

lang/perl/WWW-HatenaLogin/trunk/t/97_podspell.t

@@ -15 +15 @@
 jp
 rk
+uri