| line |
true |
false |
branch |
|
29
|
0 |
17 |
unless $atype =~ /\A(?:r|s)\z/ |
|
30
|
16 |
1 |
$atype eq 'r' ? : |
|
43
|
5 |
44 |
unless $addrs |
|
44
|
0 |
44 |
unless scalar @$addrs |
|
66
|
0 |
6013 |
unless ref $argvs eq "HASH" |
|
67
|
0 |
6013 |
unless exists $argvs->{'address'} |
|
68
|
1 |
6012 |
unless $argvs->{'address'} |
|
73
|
5998 |
14 |
if ($argvs->{'address'} =~ /\A([^\s]+)[\@]([^\@]+)\z/ or $argvs->{'address'} =~ /\A(["].+?["])[\@]([^\@]+)\z/) { } |
|
76
|
6 |
5992 |
if substr($lpart, 0, 1) eq $e |
|
77
|
21 |
23971 |
if substr($dpart, -1, 1) eq $e |
|
81
|
5997 |
1 |
unless ($email) |
|
84
|
6 |
5991 |
if $email |
|
87
|
7 |
5991 |
if ($email =~ /\A.+[\@].+?\z/) |
|
89
|
6 |
1 |
if ($alias) { } |
|
104
|
0 |
14 |
unless "Sisimai::RFC5322"->is_mailerdaemon($argvs->{'address'}) |
|
105
|
0 |
14 |
if rindex($argvs->{'address'}, " ") > -1 |
|
149
|
0 |
3942 |
if index($argv1, "\r") > -1 |
|
150
|
5 |
3937 |
if index($argv1, "\n") > -1 |
|
154
|
6935 |
116971 |
if ($delimiters->{$e}) { } |
|
156
|
563 |
6372 |
if ($e eq ",") |
|
158
|
2 |
561 |
if (index($v->{'address'}, '<') == 0 and rindex($v->{'address'}, '@') > -1 and substr($v->{'address'}, -1, 1) eq '>') { } |
|
162
|
0 |
2 |
if ($readcursor & $indicators->{'comment-block'}) { } |
|
|
0 |
2 |
elsif ($readcursor & $indicators->{'quoted-string'}) { } |
|
179
|
1 |
560 |
$p ? : |
|
184
|
2273 |
4099 |
if ($e eq "<") |
|
186
|
0 |
2273 |
if ($v->{'address'}) { } |
|
187
|
0 |
0 |
$p ? : |
|
198
|
2277 |
1822 |
if ($e eq ">") |
|
200
|
2273 |
4 |
if ($readcursor & $indicators->{'email-address'}) { } |
|
208
|
0 |
4 |
$p ? : |
|
213
|
82 |
1740 |
if ($e eq "(") |
|
215
|
2 |
80 |
if ($readcursor & $indicators->{'email-address'}) { } |
|
|
0 |
80 |
elsif ($readcursor & $indicators->{'comment-block'}) { } |
|
|
0 |
80 |
elsif ($readcursor & $indicators->{'quoted-string'}) { } |
|
217
|
0 |
2 |
if (rindex($v->{'address'}, '"') > -1) { } |
|
224
|
0 |
2 |
if substr($v->{'comment'}, -1, 1) eq ")" |
|
230
|
0 |
0 |
if substr($v->{'comment'}, -1, 1) eq ")" |
|
240
|
5 |
75 |
if substr($v->{'comment'}, -1, 1) eq ")" |
|
247
|
82 |
1658 |
if ($e eq ")") |
|
249
|
2 |
80 |
if ($readcursor & $indicators->{'email-address'}) { } |
|
|
80 |
0 |
elsif ($readcursor & $indicators->{'comment-block'}) { } |
|
251
|
0 |
2 |
if (rindex($v->{'address'}, '"') > -1) { } |
|
276
|
1658 |
0 |
if ($e eq "\"") |
|
278
|
0 |
1658 |
if ($p) { } |
|
285
|
1658 |
0 |
unless $readcursor & $indicators->{'quoted-string'} |
|
286
|
0 |
0 |
if $v->{'name'} =~ /\x5c["]\z/ |
|
294
|
52519 |
64452 |
$p ? : |
|
299
|
2271 |
1671 |
if ($v->{'address'}) { } |
|
305
|
1645 |
26 |
if ($v->{'name'} =~ /$validemail/) { } |
|
|
5 |
21 |
elsif ('Sisimai::RFC5322'->is_mailerdaemon($v->{'name'})) { } |
|
314
|
1650 |
21 |
if ($v->{'address'}) |
|
316
|
0 |
1650 |
if ($v->{'address'} =~ /(.*)([(].+[)])(.*)/) |
|
328
|
0 |
3923 |
if $e->{'address'} =~ /[^\x20-\x7e]/ |
|
329
|
20 |
3903 |
unless ($e->{'address'} =~ /\A.+[\@].+\z/) |
|
331
|
0 |
20 |
unless "Sisimai::RFC5322"->is_mailerdaemon($e->{'address'}) |
|
338
|
3918 |
5 |
unless $e->{'address'} =~ /[\@]\[[0-9A-Za-z:\.]+\]\z/ |
|
340
|
3903 |
20 |
unless ($e->{'address'} =~ /\A["].+["][\@]/) |
|
342
|
5 |
3898 |
if substr($e->{'address'}, 0, 1) eq "\"" |
|
343
|
5 |
3898 |
if substr($e->{'address'}, -1, 1) eq "\"" |
|
346
|
833 |
3090 |
if ($addrs) { } |
|
355
|
9 |
6171 |
if index($e->{$f}, " ") == 0 |
|
356
|
1918 |
4262 |
if substr($e->{$f}, -1, 1) eq " " |
|
358
|
3028 |
62 |
unless $e->{'comment'} =~ /\A[(].+[)]\z/ |
|
359
|
2309 |
781 |
unless $e->{'name'} =~ /\A["].+["]\z/ |
|
360
|
3078 |
12 |
unless $e->{'name'} =~ /\A["].+["][\@]/ |
|
361
|
785 |
2305 |
if substr($e->{'name'}, -1, 1) eq "\"" |
|
366
|
21 |
3921 |
unless scalar @$addrtables |
|
377
|
11 |
793 |
unless scalar @$addrs |
|
390
|
5997 |
2 |
unless $local =~ /\A[-_\w]+?[+](\w[-._\w]+\w)[=](\w[-.\w]+\w)\z/ |
|
392
|
2 |
0 |
if "Sisimai::RFC5322"->is_emailaddress($verp0) |
|
401
|
31 |
5967 |
unless "Sisimai::RFC5322"->is_emailaddress($email) |
|
405
|
5960 |
7 |
unless $local[0] =~ /\A([-_\w]+?)[+].+\z/ |