Email::Valid::Loose − Email::Valid which allows dot before at mark
use Email::Valid::Loose; # same as Email::Valid my $addr = 'read_rfc822.@docomo.ne.jp'; my $is_valid = Email::Valid::Loose−>address($addr);
Email::Valid::Loose is a subclass of Email::Valid, which allows . (dot) before @ (at-mark). It is invalid in RFC822, but is commonly used in some of mobile phone addresses in Japan (like docomo.ne.jp or jp−t.ne.jp).
This module overrides "rfc822" method in Email::Valid.
Tatsuhiko Miyagawa <miyagawa AT bulknews DOT net>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Email::Valid, Mail::Address::MobileJp