Branch Coverage

blib/lib/Mail/Milter/Authentication/Handler/XGoogleDKIM.pm
Criterion Covered Total %
branch 32 60 53.3


line true false branch
49 0 581 if $self->{'failmode'}
54 32 549 if (lc $header eq 'dkim-signature')
57 0 581 if (lc $header eq 'domainkey-signature')
64 32 549 if ($header eq 'X-Google-DKIM-Signature')
72 32 0 if ($selector and $domain)
84 0 50 if $self->{'failmode'}
87 18 32 if ($self->{'has_dkim'} == 0) { }
90 18 0 unless ($config->{'hide_none'})
103 32 0 if ($Mail::DKIM::VERSION >= 0.4)
109 0 32 if (my $error = $@)
125 0 32 if (my $error = $@)
143 0 50 if $self->{'failmode'}
144 18 32 if $self->{'has_dkim'} == 0
148 0 32 if ($self->{'carry'} ne '') { }
156 0 32 if (substr($dkim_chunk, -1) eq "\r")
167 0 32 if (my $error = $@)
180 18 32 if $self->{'has_dkim'} == 0
181 0 32 if $self->{'failmode'}
198 0 32 unless ($dkim->signatures)
199 0 0 unless ($config->{'hide_none'} and $dkim_result eq 'none')
208 32 0 $otype eq 'Mail::DKIM::Signature' ? :
0 32 $otype eq 'Mail::DKIM::DkSignature' ? :
219 0 32 if ($signature_result eq 'invalid')
220 0 0 if ($signature_result_detail =~ /DNS query timeout for (.*) at /)
228 8 24 if ($signature_result ne 'pass' and $signature_result ne 'none')
230 8 0 if ($1)
234 32 0 unless ($config->{'hide_none'} and $signature_result eq 'none')
257 0 32 if (my $error = $@)
281 0 0 if ($error =~ /^DNS error: query timed out/ or $error =~ /^DNS query timeout/) { }
0 0 elsif ($error =~ /^no domain to fetch policy for$/ or $error =~ /^policy syntax error$/ or $error =~ /^empty domain label/ or $error =~ /^invalid name /) { }