| line |
true |
false |
branch |
|
20
|
1 |
2 |
@_ % 2 ? : |
|
26
|
0 |
3 |
if exists $opt{'Header'} |
|
27
|
0 |
3 |
if exists $opt{'Body'} |
|
31
|
0 |
3 |
if exists $opt{'MailFrom'} |
|
32
|
1 |
2 |
exists $opt{'Modify'} ? : |
|
34
|
2 |
1 |
if (not defined $arg) { } |
|
|
1 |
0 |
elsif (ref $arg eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (defined fileno $arg) { } |
|
36
|
1 |
0 |
unless exists $opt{'Header'} |
|
37
|
1 |
0 |
unless exists $opt{'Body'} |
|
40
|
0 |
0 |
unless exists $opt{'Header'} |
|
41
|
0 |
0 |
unless exists $opt{'Body'} |
|
84
|
2 |
0 |
if $head |
|
93
|
6 |
1 |
unless @_ |
|
96
|
1 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
108
|
0 |
0 |
if $self->print_header($fd) and print $fd "\n" |
|
121
|
0 |
0 |
unless print $fd $ln |
|
139
|
2 |
0 |
unless $escaped |
|
156
|
0 |
0 |
unless $ret = $head->add($tag, $line, -1) |
|
170
|
0 |
0 |
unless $ret = $head->replace($tag, $line, 0) |
|
181
|
0 |
0 |
if wantarray |
|
186
|
0 |
0 |
if defined $r |
|
214
|
0 |
0 |
unless $body->[$start] =~ /^--[ ]?[\r\n]/ |
|
226
|
0 |
0 |
if ($sig = delete $arg{'File'}) { } |
|
|
0 |
0 |
elsif ($sig = delete $arg{'Signature'}) { } |
|
229
|
0 |
0 |
if (open SIG, $sig) |
|
231
|
0 |
0 |
unless /^(--)?\s*$/ |
|
237
|
0 |
0 |
ref $sig ? : |
|
240
|
0 |
0 |
if (@sig) |
|
266
|
0 |
0 |
if (open MAILHDR, "$ENV{'HOME'}/.mailhdr") |
|
276
|
0 |
0 |
if $subject =~ /\S+/ and not $subject =~ /Re:/i |
|
290
|
0 |
0 |
unless (defined $name) |
|
292
|
0 |
0 |
if defined $fr |
|
293
|
0 |
0 |
if defined $fr |
|
297
|
0 |
0 |
if ($indent =~ /\%/) |
|
299
|
0 |
0 |
$name ? : |
|
302
|
0 |
0 |
$#name ? : |
|
304
|
0 |
0 |
$#name ? : |
|
310
|
0 |
0 |
defined $hash{$1} ? : |
|
323
|
0 |
0 |
if ($arg{'ReplyAll'}) |
|
328
|
0 |
0 |
unless $nocc{$lc} |
|
338
|
0 |
0 |
if defined $mid |
|
345
|
0 |
0 |
if (defined $mid) { } |
|
|
0 |
0 |
elsif (defined $name) { } |
|
348
|
0 |
0 |
if defined $name |
|
349
|
0 |
0 |
if defined $date |
|
351
|
0 |
0 |
if @comment |
|
355
|
0 |
0 |
if defined $date |
|
367
|
0 |
0 |
defined $name ? : |
|
369
|
0 |
0 |
if (defined $arg{'Keep'} and ref $arg{'Keep'} eq 'ARRAY') |
|
372
|
0 |
0 |
if defined $ln |
|
376
|
0 |
0 |
if (defined $arg{'Exclude'} and ref $arg{'Exclude'} eq 'ARRAY') |
|
398
|
0 |
0 |
if defined $opt{'Hello'} |
|
401
|
0 |
0 |
if exists $opt{'Port'} |
|
404
|
0 |
0 |
if exists $opt{'Debug'} |
|
406
|
0 |
0 |
if (not defined $host) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($host, 'Net::SMTP') or UNIVERSAL::isa($host, 'Net::SMTP::SSL')) { } |
|
410
|
0 |
0 |
if defined $ENV{'SMTPHOSTS'} |
|
414
|
0 |
0 |
if defined $smtp |
|
427
|
0 |
0 |
unless defined $smtp |
|
433
|
0 |
0 |
ref $_ ? : |
|
434
|
0 |
0 |
unless @rcpt |
|
438
|
0 |
0 |
unless @addr |
|
448
|
0 |
0 |
if $quit |
|
449
|
0 |
0 |
$ok ? : |
|
474
|
0 |
0 |
unless @groups |
|
485
|
0 |
0 |
if (ref $host and UNIVERSAL::isa($host, 'Net::NNTP')) { } |
|
493
|
0 |
0 |
if exists $opt{'Port'} |
|
496
|
0 |
0 |
if exists $opt{'Debug'} |
|
498
|
0 |
0 |
unless $news = 'Net::NNTP'->new(@opt) |
|
505
|
0 |
0 |
if $quit |
|
507
|
0 |
0 |
$rc == 240 ? : |
|
532
|
0 |
0 |
unless $head->count('X-Mailer') |
|
539
|
0 |
0 |
if ($name =~ /[^\w\s]/) |
|
548
|
0 |
0 |
unless $head->get($tag) |