Changeset 18710

Timestamp:

09/03/08 12:23:15 (5 years ago)

Author:

hirose31

Message:

入れるところまちがえてたので re-commit changeset:17841 ＞＜

Location:

lang/perl/WWW-MobileCarrierJP/trunk

Files:

• lib/WWW/MobileCarrierJP/AirHPhone/CIDR.pm (modified) (2 diffs)
• lib/WWW/MobileCarrierJP/DoCoMo/CIDR.pm (modified) (2 diffs)
• lib/WWW/MobileCarrierJP/EZWeb/CIDR.pm (modified) (2 diffs)
• lib/WWW/MobileCarrierJP/ThirdForce/CIDR.pm (modified) (2 diffs)
• t/12_cidr_url.t (added)

lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/AirHPhone/CIDR.pm

@@ -5 +5 @@
 use URI;
 
-my $url = 'http://www.willcom-inc.com/ja/service/contents_service/club_air_edge/for_phone/ip/';
+sub url { 'http://www.willcom-inc.com/ja/service/contents_service/club_air_edge/for_phone/ip/' }
 
 sub scrape {
@@ -13 +13 @@
                         +{ ip => $1, subnetmask => $2 };
                     }];
-    }->scrape(URI->new($url))->{cidr};
+    }->scrape(URI->new(__PACKAGE__->url))->{cidr};
 }
 

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

@@ -5 +5 @@
 use URI;
 
-my $url = 'http://www.nttdocomo.co.jp/service/imode/make/content/ip/';
+sub url { 'http://www.nttdocomo.co.jp/service/imode/make/content/ip/'; }
 
 sub scrape {
@@ -16 +16 @@
                     }
                 ];
-    }->scrape(URI->new($url))->{cidr};
+    }->scrape(URI->new(__PACKAGE__->url))->{cidr};
 }
 

lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/EZWeb/CIDR.pm

@@ -5 +5 @@
 use URI;
 
-my $url = 'http://www.au.kddi.com/ezfactory/tec/spec/ezsava_ip.html';
+sub url { 'http://www.au.kddi.com/ezfactory/tec/spec/ezsava_ip.html'; }
 
 sub scrape {
@@ -13 +13 @@
             process '//td[position()=3]/div', 'subnetmask', 'TEXT';
         };
-    }->scrape(URI->new($url))->{ip};
+    }->scrape(URI->new(__PACKAGE__->url))->{ip};
 }
 

lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/ThirdForce/CIDR.pm

@@ -5 +5 @@
 use URI;
 
-my $url = 'http://creation.mb.softbank.jp/web/web_ip.html';
+sub url { 'http://creation.mb.softbank.jp/web/web_ip.html'; }
 
 sub scrape {
@@ -20 +20 @@
               }
           ];
-    }->scrape(URI->new($url))->{cidr};
+    }->scrape(URI->new(__PACKAGE__->url))->{cidr};
 }