| blib/lib/Mail/DKIM/PublicKey.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 27 | 35 | 77.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 63 | 0 | 0 | 426 | defined $prms{'Protocol'} and $prms{'Protocol'} =~ m[^dns(/txt)?$]s |
| 67 | 0 | 2 | 424 | defined $prms{'Selector'} and length $prms{'Selector'} |
| 70 | 0 | 0 | 424 | defined $prms{'Domain'} and length $prms{'Domain'} |
| 208 | 351 | 1 | 1 | $g eq "" and $empty_g_means_wildcard |
| 229 | 343 | 6 | 1 | length $ends and substr($local_part, -length($ends)) ne $ends |
| line | l | !l | condition |
|---|---|---|---|
| 31 | 0 | 364 | $prms{'Type'} || 'rsa' |
| 105 | 335 | 26 | $self->get_tag('k') || 'rsa' |
| 400 | 18 | 331 | $self->get_tag('t') || '' |
| 503 | 328 | 17 | $self->get_tag('k') || 'rsa' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 73 | 422 | 2 | 0 | $callbacks{'Success'} || sub { $_[0]; } |
| 138 | 330 | 4 | 1 | $k eq "rsa" or $k eq "ed25519" |
| 229 | 0 | 2 | 350 | length $local_part < length($begins) + length($ends) or substr($local_part, 0, length $begins) ne $begins |
| 2 | 2 | 348 | 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 |