| line |
true |
false |
branch |
|
24
|
1 |
2 |
@_ % 2 ? : |
|
30
|
0 |
3 |
if exists $opt{'Header'} |
|
31
|
0 |
3 |
if exists $opt{'Body'} |
|
35
|
0 |
3 |
if exists $opt{'MailFrom'} |
|
36
|
1 |
2 |
exists $opt{'Modify'} ? : |
|
38
|
2 |
1 |
if (not defined $arg) { } |
|
|
1 |
0 |
elsif (ref $arg eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (defined fileno $arg) { } |
|
40
|
1 |
0 |
unless exists $opt{'Header'} |
|
41
|
1 |
0 |
unless exists $opt{'Body'} |
|
44
|
0 |
0 |
unless exists $opt{'Header'} |
|
45
|
0 |
0 |
unless exists $opt{'Body'} |
|
88
|
2 |
0 |
if $head |
|
97
|
6 |
1 |
unless @_ |
|
100
|
1 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
112
|
0 |
0 |
if $self->print_header($fd) and print $fd "\n" |
|
125
|
0 |
0 |
unless print $fd $ln |
|
143
|
2 |
0 |
unless $escaped |
|
160
|
0 |
0 |
unless $ret = $head->add($tag, $line, -1) |
|
174
|
0 |
0 |
unless $ret = $head->replace($tag, $line, 0) |
|
185
|
0 |
0 |
if wantarray |
|
190
|
0 |
0 |
if defined $r |
|
218
|
0 |
0 |
unless $body->[$start] =~ /^--[ ]?[\r\n]/ |
|
230
|
0 |
0 |
if ($sig = delete $arg{'File'}) { } |
|
|
0 |
0 |
elsif ($sig = delete $arg{'Signature'}) { } |
|
233
|
0 |
0 |
if (open SIG, $sig) |
|
235
|
0 |
0 |
unless /^(--)?\s*$/ |
|
241
|
0 |
0 |
ref $sig ? : |
|
244
|
0 |
0 |
if (@sig) |
|
270
|
0 |
0 |
if (open MAILHDR, "$ENV{'HOME'}/.mailhdr") |
|
280
|
0 |
0 |
if $subject =~ /\S+/ and not $subject =~ /Re:/i |
|
294
|
0 |
0 |
unless (defined $name) |
|
296
|
0 |
0 |
if defined $fr |
|
297
|
0 |
0 |
if defined $fr |
|
301
|
0 |
0 |
if ($indent =~ /\%/) |
|
303
|
0 |
0 |
$name ? : |
|
306
|
0 |
0 |
$#name ? : |
|
308
|
0 |
0 |
$#name ? : |
|
314
|
0 |
0 |
defined $hash{$1} ? : |
|
327
|
0 |
0 |
if ($arg{'ReplyAll'}) |
|
332
|
0 |
0 |
unless $nocc{$lc} |
|
342
|
0 |
0 |
if defined $mid |
|
349
|
0 |
0 |
if (defined $mid) { } |
|
|
0 |
0 |
elsif (defined $name) { } |
|
352
|
0 |
0 |
if defined $name |
|
353
|
0 |
0 |
if defined $date |
|
355
|
0 |
0 |
if @comment |
|
359
|
0 |
0 |
if defined $date |
|
371
|
0 |
0 |
defined $name ? : |
|
373
|
0 |
0 |
if (defined $arg{'Keep'} and ref $arg{'Keep'} eq 'ARRAY') |
|
376
|
0 |
0 |
if defined $ln |
|
380
|
0 |
0 |
if (defined $arg{'Exclude'} and ref $arg{'Exclude'} eq 'ARRAY') |
|
402
|
0 |
0 |
if defined $opt{'Hello'} |
|
405
|
0 |
0 |
if exists $opt{'Port'} |
|
408
|
0 |
0 |
if exists $opt{'Debug'} |
|
410
|
0 |
0 |
if (not defined $host) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($host, 'Net::SMTP') or UNIVERSAL::isa($host, 'Net::SMTP::SSL')) { } |
|
414
|
0 |
0 |
if defined $ENV{'SMTPHOSTS'} |
|
418
|
0 |
0 |
if defined $smtp |
|
431
|
0 |
0 |
unless defined $smtp |
|
437
|
0 |
0 |
ref $_ ? : |
|
438
|
0 |
0 |
unless @rcpt |
|
442
|
0 |
0 |
unless @addr |
|
452
|
0 |
0 |
if $quit |
|
453
|
0 |
0 |
$ok ? : |
|
478
|
0 |
0 |
unless @groups |
|
489
|
0 |
0 |
if (ref $host and UNIVERSAL::isa($host, 'Net::NNTP')) { } |
|
497
|
0 |
0 |
if exists $opt{'Port'} |
|
500
|
0 |
0 |
if exists $opt{'Debug'} |
|
502
|
0 |
0 |
unless $news = 'Net::NNTP'->new(@opt) |
|
509
|
0 |
0 |
if $quit |
|
511
|
0 |
0 |
$rc == 240 ? : |
|
536
|
0 |
0 |
unless $head->count('X-Mailer') |
|
543
|
0 |
0 |
if ($name =~ /[^\w\s]/) |
|
552
|
0 |
0 |
unless $head->get($tag) |