| line | % | coverage | branch |
|---|
| 68 | 50 | T | F | unless &GetOptions("dry-run", \$dry_run, "interactive|i", \$interactive, "bcc", \$bcc, "bcc-to=s", \$bcc_to, "from=s", \$from, "smtp=s", \$smtp_arg, "trusted=s", \@trusted, "timeout=i", \$timeout, "verbose", \$verbose, "help", \$help) |
| 81 | 100 | T | F | if $help |
| 83 | 50 | T | F | unless ($dry_run or $from) |
| 88 | 50 | T | F | if ($from and not $from =~ /\@/) |
| 97 | 50 | T | F | if ($bcc_to) { } |
| 50 | T | F | elsif ($bcc) { } |
| 98 | 0 | T | F | unless $bcc_to =~ /\@/ |
| 102 | 0 | T | F | unless $from |
| 112 | 50 | T | F | if (@ARGV) { } |
| 113 | 50 | T | F | unless open my $fh, "<:raw", $ARGV[0] |
| 123 | 50 | T | F | unless defined $raw and length $raw |
| 129 | 50 | T | F | if $verbose |
| 140 | 100 | T | F | unless (@contacts) |
| 161 | 50 | T | F | unless @unresolved |
| 166 | 100 | T | F | if ($u->{'type'} eq 'url_host') { } |
| 197 | 50 | T | F | if ($dry_run) |
| 212 | 0 | T | F | if ($interactive) |
| 217 | 0 | T | F | unless (defined $ans and lc $ans eq "y") |
| 223 | 0 | T | F | if $verbose |
| 238 | 0 | T | F | if ($ok) { } |
| 249 | 0 | T | F | $failed ? : |
| 266 | 50 | T | F | if $bcc |
| 300 | 50 | T | F | if (defined $raw_ref and length $$raw_ref) { } |
| 304 | 50 | T | F | $total < $preview ? : |
| 306 | 50 | T | F | $total < $preview ? : |
| 307 | 50 | T | F | if $total > $preview |
| 322 | 50 | T | F | if ($n_routes > $n_contacts) { } |
| 324 | 0 | T | F | $n_contacts == 1 ? : |
| 0 | T | F | $n_routes == 1 ? : |
| 328 | 50 | T | F | $n_contacts == 1 ? : |
| 340 | 50 | T | F | if (@form_cs) |
| 349 | 0 | T | F | if $c->{'form_domain'} |
| 350 | 0 | T | F | if ($c->{'form_paste'}) |
| 353 | 0 | T | F | if ($c->{'form_upload'}) |
| 374 | 0 | T | F | unless (open $tty, "<", "/dev/tty") |
| 380 | 0 | T | F | if defined $ans |
| 417 | 0 | T | F | if (my $dump = $ENV{'SUBMIT_ABUSE_DUMP_MIME'}) |
| 418 | 0 | T | F | if (open my $fh, ">", $dump) |
| 433 | 0 | T | F | unless ($smtp) |
| 440 | 0 | T | F | unless $smtp->mail("") |
| 441 | 0 | T | F | unless $smtp->to($a{'to'}) |
| 443 | 0 | T | F | if $a{'bcc'} |
| 444 | 0 | T | F | unless $smtp->data |
| 445 | 0 | T | F | unless $smtp->datasend($mail) |
| 446 | 0 | T | F | unless $smtp->dataend |
| 451 | 0 | T | F | unless ($ok) |
| 493 | 0 | T | F | if $orig and $orig->{'ip'} |
| 501 | 50 | T | F | if $mail_from |
| 510 | 50 | T | F | unless $rcpt_seen{$addr}++ |
| 515 | 50 | T | F | if $arrival |
| 519 | 50 | T | F | if $rdomain |
| 525 | 50 | T | F | unless $uri_seen{$u->{'url'}}++ |
| 530 | 50 | T | F | if $auth_res |
| 563 | 0 | T | F | if (defined $a{'original'} and length ${$a{'original'};}) |
| 581 | 0 | T | F | if $a{'bcc'} |
| 635 | 50 | T | F | $orig ? : |