| lib/Sisimai/Address.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 58 | 88 | 65.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 69 | 0 | 0 | 0 | $p != 92 and $p != 34 |
| 73 | 246 | 18 | 0 | $p == 34 and $j + 1 < $lasta |
| 94 | 17021 | 120780 | 15 | $p > 57 and $p < 64 |
| 95 | 17293 | 120508 | 0 | $p > 90 and $p < 97 |
| 99 | 46 | 24 | 0 | $p > 59 and $p < 64 |
| 100 | 66 | 4 | 0 | $p > 93 and $p < 97 |
| 115 | 10600 | 0 | 18 | index($argv0, "\"") == 0 and index($argv0, "\"\@") > 1 |
| 245 | 638 | 0 | 2 | index($v->{'address'}, "<") == 0 and rindex($v->{'address'}, "\@") != -1 |
| 638 | 0 | 2 | index($v->{'address'}, "<") == 0 and rindex($v->{'address'}, "\@") != -1 and substr($v->{'address'}, -1, 1) eq ">" |
| line | l | !l | condition |
|---|---|---|---|
| 27 | 13 | 1 | shift() // 0 |
| 38 | 10640 | 121 | shift() // (return 0) |
| 125 | 1600 | 1 | shift() // (return 0) |
| 143 | 7424 | 0 | shift() // (return undef) |
| 165 | 1 | 7279 | __PACKAGE__->expand_verp($argvs->{'address'}) || '' |
| 170 | 11 | 7268 | __PACKAGE__->expand_alias($argvs->{'address'}) || '' |
| 202 | 3178 | 4120 | $argvs->{'name'} || '' |
| 203 | 55 | 7243 | $argvs->{'comment'} || '' |
| 215 | 9680 | 1 | shift() // (return undef) |
| 216 | 5968 | 3712 | shift() // undef |
| 459 | 4089 | 1834 | shift() // (return "") |
| 460 | 5752 | 171 | __PACKAGE__->find($input, 1) || [] |
| 470 | 7281 | 1 | shift() // (return "") |
| 484 | 7280 | 1 | shift() // (return "") |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 45 | 18 | 0 | 10618 | $lasta < 1 or $lasta > 64 |
| 61 | 0 | 0 | 106771 | $p < 32 or $p > 126 |
| 81 | 0 | 0 | 95909 | $e eq "," or $e eq "\@" |
| 0 | 0 | 95909 | $e eq "," or $e eq "\@" or $e eq ":" | |
| 0 | 0 | 95909 | $e eq "," or $e eq "\@" or $e eq ":" or $e eq ";" | |
| 0 | 0 | 95909 | $e eq "," or $e eq "\@" or $e eq ":" or $e eq ";" or $e eq "(" | |
| 82 | 0 | 0 | 95909 | $e eq ")" or $e eq "<" |
| 0 | 0 | 95909 | $e eq ")" or $e eq "<" or $e eq ">" | |
| 0 | 0 | 95909 | $e eq ")" or $e eq "<" or $e eq ">" or $e eq "[" | |
| 0 | 0 | 95909 | $e eq ")" or $e eq "<" or $e eq ">" or $e eq "[" or $e eq "]" | |
| 133 | 25 | 12 | 1484 | $email eq "mailer-daemon" or $email eq "postmaster" |