NAME

Email::Address::Loose - Make Email::Address->parse() loose

SYNOPSIS

my $address = 'read..rfc822.@docomo.ne.jp'; # Email::Addess can't find

use Email::Address::Loose;
my ($email) = Email::Address::Loose->parse($address); # find!

use Email::Address;
use Email::Address::Loose -override;
my ($email) = Email::Address->parse($address); # find!

DESCRIPTION

Email::Address::Loose is a Email::Address, but parse() is "loose" same as Email::Valid::Loose.

This module is for web developers in Japan.

This module is needed because email address by the Japanese mobile carrier was not RFC compliant. Fortunately, this evil spec was changed in April 2009(docomo), October 2009(kddi). However email address that taken before 2009 is still available. So this module is still needed.

ドコモやauがドットを連続で使ったり@マークの直前にドットを置くなど RFC外のメールアドレスを許可していましたが、Email::Addressではそれをメールアドレスと 認識しません。このモジュールはそれらを許可するようにします。 現在はそのようなアドレスは新規に取れないようですが、以前に取ったものは使い続け られているようなので、このモジュールを使っておいた方がいいでしょう。

USAGE

my ($email) = Email::Address::Loose->parse('docomo..taro.@docomo.ne.jp');
print $email->address; # => "docomo..taro.@docomo.ne.jp"
print $email;          # => "docomo..taro.@docomo.ne.jp" (as_string)
print $email->user;    # => "docomo..taro."
print $email->host;    # => "docomo.ne.jp"

Same as Email::Address.

IMPORT OPTION

-override

use Email::Address;
use Email::Address::Loose -override;
 
my ($email) = Email::Address->parse('docomo..taro.@docomo.ne.jp');
print $email->address; # => "docomo..taro.@docomo.ne.jp"

Call globally_override()(see below) at compile time.

ORIGINAL METHODS

globally_override()

Email::Address::Loose->globally_override;

Changes Email::Address->parse() into Email::Address::Loose->parse().

globally_unoverride()

Email::Address::Loose->globally_unoverride;

Restores override-ed Email::Address->parse().

SEE ALSO

Email::Address, Email::Valid::Loose - this module based on these.

Email::Address::JP::Mobile - will help you too.

#mobilejp on irc.freenode.net (I've joined as "tomi-ru")

AUTHOR

Naoki Tomita <tomita@cpan.org>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.