Changeset 22933

Timestamp:

11/07/08 17:16:26 (5 years ago)

Author:

tokuhirom

Message:

move as_tree to Declare.pm

Location:

lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP

Files:

• Declare.pm (modified) (2 diffs)
• DoCoMo/Flash.pm (modified) (2 diffs)

lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/Declare.pm

@@ -9 +9 @@
 my $exporter = Sub::Exporter::build_exporter(
     {
-        exports => [qw(parse_one scraper process col)],
+        exports => [qw(parse_one scraper process col as_tree)],
         groups  => { default => [':all'] }
     },
@@ -44 +44 @@
         return \@res;
     };
-
 }
 
+sub as_tree {
+    my $old = shift;
+
+    my $tree = HTML::TreeBuilder::XPath->new;
+    $tree->parse($old->as_HTML);
+    $tree;
+}
+
+
 1;

lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/DoCoMo/Flash.pm

@@ -16 +16 @@
         process '//tr[@class="acenter"]', 'models[]', [sub {
             my $elem = $_;
-            my $tree = _as_tree($elem);
+            my $tree = as_tree($elem);
             $_->delete for $tree->findnodes('//td[@class="brownLight acenter middle"]');
             $_->delete for $tree->findnodes('//td[@class="acenter middle"]');
@@ -43 +43 @@
 );
 
-sub _as_tree {
-    my $self = shift;
-
-    my $tree = HTML::TreeBuilder::XPath->new;
-    $tree->parse($self->as_HTML);
-    $tree;
-}
-
 1;
 __END__