Changeset 18683

Timestamp:

09/03/08 00:58:24 (4 months ago)

Author:

tokuhirom

Message:

more declative.

Location:

lang/perl/WWW-MobileCarrierJP/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/WWW/MobileCarrierJP/Declare.pm (modified) (1 diff)
• lib/WWW/MobileCarrierJP/ThirdForce/UserAgent.pm (modified) (1 diff)

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

@@ -3 +3 @@
 all_from 'lib/WWW/MobileCarrierJP.pm';
 
-requires 'Web::Scraper' => '0.24';
-requires 'Exporter'     => '5.58';
+requires 'Web::Scraper'  => '0.24';
+requires 'Sub::Exporter' => '0.979';
 requires 'HTML::Selector::XPath' => '0.03';
 

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

@@ -2 +2 @@
 use strict;
 use warnings;
-use Exporter 'import';
+use utf8;
 use Web::Scraper;
 use URI;
+use Sub::Exporter;
 
-our @EXPORT = qw/parse_one scraper process col/;
+my $exporter = Sub::Exporter::build_exporter(
+    {
+        exports => [qw(parse_one scraper process col)],
+        groups  => { default => [':all'] }
+    },
+);
+
+sub import {
+    strict->import;
+    warnings->import;
+    utf8->import;
+
+    goto $exporter;
+}
 
 sub col {

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

@@ -1 +1 @@
 package WWW::MobileCarrierJP::ThirdForce::UserAgent;
-use strict;
-use warnings;
 use WWW::MobileCarrierJP::Declare;
-use URI;
 
 parse_one(