Show
Ignore:
Timestamp:
02/07/08 14:44:48 (7 years ago)
Author:
chiba
Message:

add is_airh()

Location:
lang/perl/Mail-Address-MobileJp/branches/add_is_airh
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Mail-Address-MobileJp/branches/add_is_airh/lib/Mail/Address/MobileJp.pm

    r5268 r6325  
    88    require Exporter; 
    99    @Mail::Address::MobileJp::ISA    = qw(Exporter); 
    10     @Mail::Address::MobileJp::EXPORT = qw(is_mobile_jp is_imode is_vodafone is_ezweb is_softbank); 
     10    @Mail::Address::MobileJp::EXPORT = qw(is_mobile_jp is_imode is_vodafone is_ezweb is_softbank is_airh); 
    1111} 
    1212 
     
    7676)$@x; # end of qr@@ 
    7777 
     78my $regex_airh = qr@^(?: 
     79pdx\.ne\.jp| 
     80d.\.pdx\.ne\.jp| 
     81wm\.pdx\.ne\.jp 
     82)$@x; # end of qr@@ 
    7883 
    7984sub is_imode { 
     
    9297    my $domain = _domain(shift); 
    9398    return $domain && $domain =~ /$regex_ezweb/o; 
     99} 
     100 
     101sub is_airh { 
     102    my $domain = _domain(shift); 
     103    return $domain && $domain =~ /$regex_airh/o; 
    94104} 
    95105 
     
    175185can be an email string or Mail::Address object. 
    176186 
     187=item is_airh 
     188 
     189  $bool = is_airh($email); 
     190 
     191returns whether C<$email> is a airh email address or not. C<$email> 
     192can be an email string or Mail::Address object. 
     193 
    177194=back 
    178195 
  • lang/perl/Mail-Address-MobileJp/branches/add_is_airh/t/01_mobile.t

    r5268 r6325  
    11use strict; 
    2 use Test::More tests => 38; 
     2use Test::More tests => 44; 
    33 
    44use Mail::Address; 
     
    2626); 
    2727 
     28my @ok_airh = ( 
     29    'foo@pdx.ne.jp', 
     30    'foo@di.pdx.ne.jp', 
     31    'foo@wm.pdx.ne.jp', 
     32); 
     33 
    2834my @ok = ( 
    2935    @ok_imode, 
     
    3137    @ok_ezweb, 
    3238    @ok_softbank, 
     39    @ok_airh, 
    3340    'foo@mnx.ne.jp', 
    3441    'foo@bar.mnx.ne.jp', 
     
    7279} 
    7380 
     81for my $ok (@ok_airh) { 
     82    ok is_airh($ok), "$ok"; 
     83} 
     84 
    7485for my $ok (@ok) { 
    7586    ok is_mobile_jp($ok), "$ok";