• Home
  • History
  • Annotate
Name Date Size #Lines LOC

..03-May-2022-

inc/H27-Feb-2011-2,3681,745

lib/Email/Address/H27-Feb-2011-482256

t/H27-Feb-2011-1,9801,882

tools/H27-Feb-2011-10673

ChangesH A D27-Feb-2011214 96

MANIFESTH A D26-Feb-2011827 3231

META.ymlH A D27-Feb-2011656 2726

Makefile.PLH A D26-Feb-2011348 1711

READMEH A D27-Feb-20112.7 KiB7552

README

1NAME
2    Email::Address::Loose - Make Email::Address->parse() loose
3
4SYNOPSIS
5      my $address = 'read..rfc822.@docomo.ne.jp'; # Email::Addess can't find
6
7      use Email::Address::Loose;
8      my ($email) = Email::Address::Loose->parse($address); # find!
9
10      use Email::Address;
11      use Email::Address::Loose -override;
12      my ($email) = Email::Address->parse($address); # find!
13
14DESCRIPTION
15    Email::Address::Loose is a Email::Address, but "parse()" is "loose" same
16    as Email::Valid::Loose.
17
18    This module is for web developers in Japan.
19
20    This module is needed because email address by the Japanese mobile
21    carrier was not RFC compliant. Fortunately, this evil spec was changed
22    in April 2009(docomo), October 2009(kddi). However email address that
23    taken before 2009 is still available. So this module is still needed.
24
25    ドコモやauがドットを連続で使ったり@マークの直前にドットを置くなど
26    RFC外のメールアドレスを許可していましたが、Email::Addressではそれをメールアドレスと
27    認識しません。このモジュールはそれらを許可するようにします。 現在はそのようなアドレスは新規に取れないようですが、以前に取ったものは使い続け
28    られているようなので、このモジュールを使っておいた方がいいでしょう。
29
30USAGE
31      my ($email) = Email::Address::Loose->parse('docomo..taro.@docomo.ne.jp');
32      print $email->address; # => "docomo..taro.@docomo.ne.jp"
33      print $email;          # => "docomo..taro.@docomo.ne.jp" (as_string)
34      print $email->user;    # => "docomo..taro."
35      print $email->host;    # => "docomo.ne.jp"
36
37    Same as Email::Address.
38
39IMPORT OPTION
40    -override
41          use Email::Address;
42          use Email::Address::Loose -override;
43
44          my ($email) = Email::Address->parse('docomo..taro.@docomo.ne.jp');
45          print $email->address; # => "docomo..taro.@docomo.ne.jp"
46
47        Call "globally_override()"(see below) at compile time.
48
49ORIGINAL METHODS
50    globally_override()
51          Email::Address::Loose->globally_override;
52
53        Changes "Email::Address->parse()" into
54        "Email::Address::Loose->parse()".
55
56    globally_unoverride()
57          Email::Address::Loose->globally_unoverride;
58
59        Restores override-ed "Email::Address->parse()".
60
61SEE ALSO
62    Email::Address, Email::Valid::Loose - this module based on these.
63
64    Email::Address::JP::Mobile - will help you too.
65
66    #mobilejp on irc.freenode.net (I've joined as "tomi-ru")
67
68AUTHOR
69    Naoki Tomita <tomita@cpan.org>
70
71LICENSE
72    This library is free software; you can redistribute it and/or modify it
73    under the same terms as Perl itself.
74
75