| blib/lib/Mail/DKIM/PublicKey.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 27 | 74.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 60 | 0 | 0 | 419 | defined $prms{'Protocol'} and $prms{'Protocol'} =~ m[^dns(/txt)?$]s |
| 64 | 0 | 2 | 417 | defined $prms{'Selector'} and length $prms{'Selector'} |
| 67 | 0 | 0 | 417 | defined $prms{'Domain'} and length $prms{'Domain'} |
| 200 | 347 | 1 | 1 | $g eq "" and $empty_g_means_wildcard |
| 221 | 339 | 6 | 1 | length $ends and substr($local_part, -length($ends)) ne $ends |
| line | l | !l | condition |
|---|---|---|---|
| 28 | 0 | 358 | $prms{'Type'} || 'rsa' |
| 70 | 415 | 2 | $callbacks{'Success'} || sub { $_[0]; } |
| 372 | 18 | 327 | $self->get_tag('t') || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 221 | 0 | 2 | 346 | length $local_part < length($begins) + length($ends) or substr($local_part, 0, length $begins) ne $begins |
| 2 | 2 | 344 | length $local_part < length($begins) + length($ends) or substr($local_part, 0, length $begins) ne $begins or length $ends and substr($local_part, -length($ends)) ne $ends |