Changeset 4595

Timestamp:

01/14/08 22:58:09 (5 years ago)

Author:

kentaro

Message:

lang/perl/WWW-HatenaDiary?: Updated the POD, added a prereq module into Makefile.PL, revised login process.

Location:

lang/perl/WWW-HatenaDiary/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/WWW/HatenaDiary.pm (modified) (6 diffs)
• t/97_podspell.t (modified) (1 diff)

lang/perl/WWW-HatenaDiary/trunk/Makefile.PL

@@ -4 +4 @@
 
 requires $_ for (qw/
+    URI
     Web::Scraper
     WWW::Mechanize

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

@@ -28 +28 @@
 
     if ($self->is_loggedin) {
-        $self->{username} = scraper {
+        my $username = scraper {
             process '//td[@class="username"]/a', 'username' => 'TEXT';
             result 'username';
         }->scrape($self->{mech}->content, URI->new($login_uri));
-        $self->{diary} = "$self->{base}$self->{username}/";
+        $self->{username} = $username if !$self->{username};
+        $self->{diary}    = "$self->{base}$self->{username}/";
     }
 
@@ -69 +70 @@
     );
 
-    croak 'Login failed. Please confirm your username/password'
-        if !($self->{rkm} = $self->get_rkm);
+    !!($self->{rkm} = $self->get_rkm) ||
+        croak 'Login failed. Please confirm your username/password';
 }
 
 sub get_rkm {
     my $self = shift;
+    my $rkm;
+
     $self->{mech}->get("$self->{diary}?mode=json");
-    Load($self->{mech}->content)->{rkm};
+    eval {
+        $rkm = Load($self->{mech}->content)->{rkm};
+    };
+
+    $rkm;
 }
 
@@ -238 +245 @@
 __END__
 
-=for stopwords aaaatttt dotottto gmail
-
 =head1 NAME
 
@@ -252 +257 @@
       password => $password,
       group    => $group,
-      mech_opt => \%mech_opt,
+      mech_opt => {
+          timeout    => $timeout,
+          cookie_jar => HTTP::Cookies->new(...),
+      },
   });
 
@@ -330 +338 @@
       password => $password,
       group    => $group,
-      mech_opt => \%mech_opt,
+      mech_opt => {
+          timeout    => $timeout,
+          cookie_jar => HTTP::Cookies->new(...),
+      },
   });
 
@@ -534 +545 @@
 =head1 AUTHOR
 
-Tokuhiro Matsuno E<lt>tokuhirom aaaatttt gmail dotottto commmmmE<gt>
-
-Kentaro Kuribayashi E<lt>kentarok aaaatttt gmail dotottto commmmmE<gt>
+Tokuhiro Matsuno E<lt>tokuhirom gmail comE<gt>
+
+Kentaro Kuribayashi E<lt>kentaro cpan orgE<gt>
 
 =head1 LICENSE

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

@@ -13 +13 @@
 rkm
 login
+cpan
+gmail