Changeset 21499

Timestamp:

10/17/08 17:29:05 (5 years ago)

Author:

bayashi

Message:

カスタムのScraperを指定できるようにした

Location:

lang/perl/Net-DMM/trunk

Files:

• Changes (modified) (1 diff)
• META.yml (modified) (2 diffs)
• lib/Net/DMM.pm (modified) (3 diffs)

lang/perl/Net-DMM/trunk/Changes

@@ -1 +1 @@
 Revision history for Net-DMM
+
+0.0.5  Wed Oct 17 17:17:17 2008
+       fixed Net::DMM(add option 'custom_scraper' in do_scrape method)
 
 0.0.4  Wed Oct 15 18:15:15 2008

lang/perl/Net-DMM/trunk/META.yml

@@ -1 +1 @@
 ---
 name: Net-DMM
-version: 0.0.3
+version: 0.0.5
 author:
   - 'Dai Okabayashi <genkivogue@ybb.ne.jp>'
@@ -19 +19 @@
   Net::DMM:
     file: lib/Net/DMM.pm
-    version: 0.0.3
+    version: 0.0.5
   Net::DMM::Scraper::ItemDetail:
     file: lib/Net/DMM/Scraper/ItemDetail.pm

lang/perl/Net-DMM/trunk/lib/Net/DMM.pm

@@ -10 +10 @@
 use URI;
 
-use version; our $VERSION = qv('0.0.4');
+use version; our $VERSION = qv('0.0.5');
 
 sub new {
@@ -24 +24 @@
     my $opt  = shift;
     croak "no url." unless $opt->{url};
-    croak "no scraper." unless $opt->{scraper};
-    my $scrape_module = __PACKAGE__ . "::Scraper::" . $opt->{scraper};
+    croak "no scraper." if !$opt->{scraper} and !$opt->{custom_scraper};
+    my $scrape_module = '';
+    $scrape_module = __PACKAGE__ . "::Scraper::" . $opt->{scraper} if $opt->{scraper};
+    $scrape_module = $opt->{custom_scraper} if $opt->{custom_scraper};
     return $scrape_module->new({
         url => $opt->{url},
@@ -100 +102 @@
             url     => $search->{search_url},
             scraper => 'SearchResult',
+            # u can use custom scraper class
+            custom_scraper => 'Custom::Scraper', # This is option.
         }
     );