Branch Coverage

lib/Mail/DMARC/Report/Sender.pm
Criterion Covered Total %
branch 42 106 39.6


line true false branch
52 3 1 if ($self->{'transports_method'})
56 1 0 if ($self->{'transports_object'})
66 0 0 if ($report->config->{'smtp'}{'smarthost'})
67 0 0 if $self->{'smarthost'}
75 0 0 if $report->config->{'smtp'}{'smartuser'}
76 0 0 if $report->config->{'smtp'}{'smartpass'}
88 0 0 if ('Email::Sender::Transport::SMTP'->can('hosts')) { }
89 0 0 if ($transport_can_maybetls) { }
119 0 0 if ($transport_can_maybetls) { }
158 0 4 if $self->{'dkim_key'}
159 0 4 if ($report->config->{'report_sign'}{'keyfile'})
165 0 0 if (UNIVERSAL::can('Mail::DKIM::Signer', 'new')) { }
170 0 0 unless ($self->{'dkim_key'})
194 0 4 if $self->{'syslog'}
200 4 0 if defined $self->{'verbose'}
203 4 0 if ($report->config->{'smtp'}{'transports'})
220 0 4 if (my $error = $@)
224 0 4 if ($batch_do++ > $self->{'batch_size'})
226 0 0 if ($self->{'send_delay'} > 0)
227 0 0 if $self->{'verbose'}
228 0 0 if $self->{'verbose'}
229 0 0 if $self->{'verbose'}
238 0 4 if $self->{'syslog'}
260 0 4 if (my $error = $@)
271 0 4 if (scalar @$report_receivers == 0)
294 0 4 if ($max and $xml_compressed_bytes > $max) { }
4 0 elsif ('mailto:' eq substr($method, 0, 7)) { }
0 0 elsif ('http:' eq substr($method, 0, 5)) { }
0 0 elsif ('https:' eq substr($method, 0, 6)) { }
305 0 4 if ($cc and $cc ne "set.this\@for.a.while.example.com" and not $cc_sent)
309 3 1 if $self->email({"to", $to, "compressed", $xml_compressed, "aggregate", \$aggregate})
323 3 1 if ($sent) { }
340 0 0 if "mailto:" ne substr($uri, 0, 7)
359 0 4 unless ($to)
369 4 0 if $agg_ref
376 4 0 if ($rid) { }
0 0 elsif ($mime) { }
390 0 4 if ($dkim_key)
410 0 0 if (my $error = $@)
411 0 0 if $self->{'verbose'}
436 3 0 if ($success)
441 2 3 if (my $error = $@)
442 1 1 if scalar @transports
445 1 0 if (ref $error eq 'Email::Sender::Failure') { }
454 0 1 if exists $log_data->{'send_error_code'}
455 0 1 if exists $log_data->{'send_error'}
458 0 1 if ($error->code and $error->code =~ /^5/)
467 3 1 if $done
472 3 1 if ($success)
484 8 8 if (ref $args eq 'HASH') { }
486 0 8 if ($args->{'log_level'})
503 0 16 if $self->{'syslog'}
504 0 16 if $self->{'verbose'}