Changeset 8629

Timestamp:

04/02/08 11:12:27 (5 years ago)

Author:

tokuhirom

Message:

Agent::Base をつかうようにしてみる

Location:

lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Agent

Files:

• AirHPhone.pm (modified) (1 diff)
• Base.pm (added)
• DoCoMo.pm (modified) (1 diff)
• EZWeb.pm (modified) (1 diff)
• NonMobile.pm (modified) (1 diff)
• ThirdForce.pm (modified) (1 diff)

lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Agent/AirHPhone.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use Class::Component;
+use base qw/HTTP::MobileAttribute::Agent::Base/;
 
 1;

lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Agent/DoCoMo.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use Class::Component;
+use base qw/HTTP::MobileAttribute::Agent::Base/;
 
 1;

lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Agent/EZWeb.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use Class::Component;
+use base qw/HTTP::MobileAttribute::Agent::Base/;
 
 1;

lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Agent/NonMobile.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use Class::Component;
+use base qw/HTTP::MobileAttribute::Agent::Base/;
 
 1;

lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Agent/ThirdForce.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use Class::Component;
+use base qw/HTTP::MobileAttribute::Agent::Base/;
 
 1;