Changeset 6325 for lang/perl/Mail-Address-MobileJp/branches

Timestamp:

02/07/08 14:44:48 (5 years ago)

Author:

chiba

Message:

add is_airh()

Location:

lang/perl/Mail-Address-MobileJp/branches/add_is_airh

Files:

• lib/Mail/Address/MobileJp.pm (modified) (4 diffs)
• t/01_mobile.t (modified) (4 diffs)

lang/perl/Mail-Address-MobileJp/branches/add_is_airh/lib/Mail/Address/MobileJp.pm

@@ -8 +8 @@
     require Exporter;
     @Mail::Address::MobileJp::ISA    = qw(Exporter);
-    @Mail::Address::MobileJp::EXPORT = qw(is_mobile_jp is_imode is_vodafone is_ezweb is_softbank);
+    @Mail::Address::MobileJp::EXPORT = qw(is_mobile_jp is_imode is_vodafone is_ezweb is_softbank is_airh);
 }
 
@@ -76 +76 @@
 )$@x; # end of qr@@
 
+my $regex_airh = qr@^(?:
+pdx\.ne\.jp|
+d.\.pdx\.ne\.jp|
+wm\.pdx\.ne\.jp
+)$@x; # end of qr@@
 
 sub is_imode {
@@ -92 +97 @@
     my $domain = _domain(shift);
     return $domain && $domain =~ /$regex_ezweb/o;
+}
+
+sub is_airh {
+    my $domain = _domain(shift);
+    return $domain && $domain =~ /$regex_airh/o;
 }
 
@@ -175 +185 @@
 can be an email string or Mail::Address object.
 
+=item is_airh
+
+  $bool = is_airh($email);
+
+returns whether C<$email> is a airh email address or not. C<$email>
+can be an email string or Mail::Address object.
+
 =back
 

lang/perl/Mail-Address-MobileJp/branches/add_is_airh/t/01_mobile.t

@@ -1 +1 @@
 use strict;
-use Test::More tests => 38;
+use Test::More tests => 44;
 
 use Mail::Address;
@@ -26 +26 @@
 );
 
+my @ok_airh = (
+    'foo@pdx.ne.jp',
+    'foo@di.pdx.ne.jp',
+    'foo@wm.pdx.ne.jp',
+);
+
 my @ok = (
     @ok_imode,
@@ -31 +37 @@
     @ok_ezweb,
     @ok_softbank,
+    @ok_airh,
     'foo@mnx.ne.jp',
     'foo@bar.mnx.ne.jp',
@@ -72 +79 @@
 }
 
+for my $ok (@ok_airh) {
+    ok is_airh($ok), "$ok";
+}
+
 for my $ok (@ok) {
     ok is_mobile_jp($ok), "$ok";