Changeset 29595 for lang/perl/WWW-PASMO

Timestamp:

02/06/09 00:59:26 (4 years ago)

Author:

hetappi

Message:

WWW::Mechanize::Pluggable!

Files:

• lang/perl/WWW-PASMO/trunk/lib/WWW/PASMO.pm (modified) (4 diffs)

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

@@ -5 +5 @@
 our $VERSION = '0.00';
 
-use WWW::Mechanize;
+use WWW::Mechanize::Pluggable;
 use Web::Scraper;
 
@@ -11 +11 @@
     my ($class, %opt) = @_;
     my $self = bless {
-        mech => WWW::Mechanize->new
+        mech => WWW::Mechanize::Pluggable->new
     }, $class;
     $self;
@@ -31 +31 @@
     my ($self) = @_;
 
-    my $resp = $self->{mech}->follow_link( url => 'CardStatusWebForm.aspx' );
-    scraper {
-        process '//form/table[2]/tr[4]/td/table/tr[9]/td/table/tr[@bgcolor="#eeeeee"]',
-            'histories[]' => scraper {
+    $self->{mech}->follow_link( url => 'CardStatusWebForm.aspx' );
+    $self->{mech}->scrape(
+        '//form/table[2]/tr[4]/td/table/tr[9]/td/table/tr[@bgcolor="#eeeeee"]',
+            'histories[]', scraper {
                 process '//td[1]', 'date' => [ 'text', sub { s!(\d{2})(\d{2})!$1/$2! } ];
                 process '.', 'info1' => scraper {
@@ -45 +45 @@
                 };
                 process '//td[6]', 'balance' => [ 'text', sub { s/^\*+// } ];
-            };
-    }->scrape($resp);
+            });
 }