| blib/lib/Mail/Audit/DKIM.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 1 | 3 | 33.3 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 19 | 0 | 4 | 0 | $$mail_audit{'__PACKAGE__'}{'result_detail'} ||= do { my $verifier = 'Mail::DKIM::Verifier'->new; my $string = $mail_audit->as_string; my(@lines) = split(/\x0d\x0a|\x0a\x0d|\x0a|\x0d/, $string, 0); foreach my $line (@lines) { $verifier->PRINT($line . "\r\n"); } ; $verifier->CLOSE; $verifier->result_detail } |