| line |
true |
false |
branch |
|
64
|
0 |
12 |
if $self->debug |
|
65
|
0 |
12 |
unless scalar @_ % 2 == 0 |
|
68
|
4 |
8 |
if @_ |
|
69
|
11 |
1 |
unless $self->transport |
|
70
|
12 |
0 |
if $self->_have_net_dns |
|
82
|
0 |
12 |
if $self->debug |
|
86
|
1 |
11 |
if exists $params{'mx'} |
|
97
|
0 |
11 |
unless (@mx) |
|
98
|
0 |
0 |
if $self->debug |
|
109
|
0 |
4 |
if $self->debug |
|
117
|
0 |
19 |
unless exists $defaults{$param} |
|
130
|
0 |
14 |
if $self->debug |
|
131
|
0 |
14 |
unless defined $$self{'_grade'} and defined $$self{'_distribution'} |
|
134
|
4 |
10 |
if $$self{'_subject_lock'} |
|
144
|
0 |
21 |
if $self->debug |
|
146
|
6 |
15 |
if $$self{'_report_lock'} |
|
154
|
9 |
6 |
if (not $$self{'_comments'}) { } |
|
171
|
0 |
18 |
if $self->debug |
|
180
|
10 |
8 |
if scalar @_ == 1 |
|
182
|
0 |
8 |
unless $grades{$grade} |
|
190
|
0 |
29 |
if $self->debug |
|
192
|
14 |
15 |
unless scalar @_ |
|
197
|
1 |
14 |
unless (eval "require $transport_class; 1") |
|
204
|
0 |
14 |
if (@args and $transport eq 'Mail::Send' and ref $args[0] eq 'ARRAY') { } |
|
|
2 |
12 |
elsif (@args) { } |
|
217
|
0 |
0 |
if $self->debug |
|
225
|
0 |
0 |
if (exists $args{'suffix'} and defined $args{'suffix'} and length $args{'suffix'}) |
|
240
|
0 |
0 |
unless open my $fh, '<', $Test::Reporter::Report |
|
242
|
0 |
0 |
unless close $fh |
|
254
|
0 |
1 |
if $self->debug |
|
260
|
0 |
1 |
unless $self->_verify |
|
262
|
0 |
1 |
if ($self->_is_a_perl_release($self->distribution)) |
|
272
|
0 |
1 |
unless (eval {
do {
$transport->send($self)
}
}) |
|
285
|
0 |
12 |
if $rc |
|
291
|
0 |
3 |
if $self->debug |
|
302
|
0 |
3 |
unless $self->_verify |
|
306
|
3 |
0 |
unless ($fh = $_[0]) |
|
309
|
0 |
3 |
if ($^O eq 'VMS') |
|
321
|
0 |
3 |
if $self->debug |
|
323
|
0 |
3 |
unless open $fh, '>', $file |
|
326
|
3 |
0 |
if ($distfile ne '') |
|
332
|
3 |
0 |
if (not $_[0]) { } |
|
333
|
0 |
3 |
unless close $fh |
|
334
|
0 |
3 |
if $self->debug |
|
343
|
0 |
3 |
if $self->debug |
|
352
|
0 |
3 |
unless open my $fh, '<', $file |
|
354
|
0 |
3 |
unless close $fh |
|
365
|
15 |
0 |
if ($line =~ /^(.+):\s(.+)$/) |
|
367
|
3 |
12 |
if ($header eq 'From') { } |
|
|
3 |
9 |
elsif ($header eq 'Subject') { } |
|
|
3 |
6 |
elsif ($header eq 'X-Test-Reporter-Distfile') { } |
|
|
3 |
3 |
elsif ($header eq 'X-Test-Reporter-Perl') { } |
|
|
3 |
0 |
elsif ($header eq 'Report') { } |
|
387
|
3 |
0 |
if ($$self{'_from'} and $$self{'_subject'}) |
|
390
|
3 |
0 |
if $perlv |
|
395
|
0 |
3 |
unless ($$self{'_report_lock'}) |
|
404
|
0 |
4 |
if $self->debug |
|
409
|
0 |
84 |
unless defined $$self{$key} |
|
413
|
0 |
4 |
if scalar @undefined > 0 |
|
415
|
0 |
4 |
$self->errstr ? : |
|
421
|
0 |
1 |
if $self->debug |
|
437
|
0 |
15 |
if $self->debug |
|
439
|
5 |
10 |
if (@_) { } |
|
444
|
10 |
0 |
if defined $$self{'_from'} and $$self{'_from'} |
|
453
|
0 |
15 |
if $self->debug |
|
455
|
13 |
2 |
if (@_) |
|
457
|
0 |
13 |
if ref $mx ne 'ARRAY' |
|
470
|
0 |
0 |
if $self->debug |
|
471
|
0 |
0 |
unless $self->_have_mail_send |
|
473
|
0 |
0 |
if (@_) |
|
475
|
0 |
0 |
if ref $mail_send_args ne 'ARRAY' |
|
486
|
0 |
4 |
if $self->debug |
|
488
|
2 |
2 |
if (@_) |
|
489
|
0 |
2 |
ref $_[0] eq 'ARRAY' ? : |
|
496
|
0 |
15 |
$^O eq 'MSWin32' || $^O eq 'VMS' ? : |
|
501
|
0 |
22 |
if $self->debug |
|
503
|
2 |
20 |
if (@_) |
|
508
|
0 |
2 |
if ($^O eq 'VMS') |
|
516
|
1 |
1 |
if $conf{'magick'} ne $magick |
|
530
|
0 |
13 |
if ($^O eq 'VMS') |
|
543
|
0 |
19 |
if $method =~ /^DESTROY$/ |
|
545
|
0 |
19 |
unless ($$self{'_attr'}{"_$method"}) |
|
562
|
0 |
7 |
if $$self{'_debug'} |
|
|
3 |
4 |
if @_ |
|
|
0 |
7 |
if $$self{'_debug'} |
|
|
2 |
5 |
if @_ |
|
|
0 |
7 |
if $$self{'_debug'} |
|
|
3 |
4 |
if @_ |
|
|
0 |
7 |
if $$self{'_debug'} |
|
|
2 |
5 |
if @_ |
|
|
0 |
14 |
if $$self{'_debug'} |
|
|
2 |
12 |
if @_ |
|
|
0 |
4 |
if $$self{'_debug'} |
|
|
3 |
1 |
if @_ |
|
|
0 |
9 |
if $$self{'_debug'} |
|
|
4 |
5 |
if @_ |
|
|
0 |
6 |
if $$self{'_debug'} |
|
|
2 |
4 |
if @_ |
|
570
|
0 |
12 |
if $self->debug |
|
572
|
8 |
4 |
if defined $Test::Reporter::DNS |
|
580
|
0 |
0 |
if $self->debug |
|
582
|
0 |
0 |
if defined $Test::Reporter::Domain |
|
590
|
0 |
0 |
if $self->debug |
|
592
|
0 |
0 |
if defined $Test::Reporter::Send |
|
600
|
0 |
0 |
if $self->debug |
|
609
|
0 |
0 |
if system "$editor $Test::Reporter::Report" |
|
610
|
0 |
0 |
unless -e $Test::Reporter::Report |
|
611
|
0 |
0 |
unless -s $Test::Reporter::Report > 2 |
|
616
|
0 |
0 |
if $self->debug |
|
624
|
0 |
0 |
length $input ? : |
|
635
|
0 |
0 |
if $self->debug |
|
638
|
0 |
0 |
if defined $domain |
|
641
|
0 |
0 |
if (defined $ENV{'MAILDOMAIN'}) |
|
653
|
0 |
0 |
if (defined $config and open my $cf, '<', $config) |
|
656
|
0 |
0 |
if (my($v, $arg) = /^D([a-zA-Z])([\w.\$\-]+)/) |
|
657
|
0 |
0 |
exists $var{$1} ? : |
|
661
|
0 |
0 |
unless close $cf |
|
662
|
0 |
0 |
if defined $var{'j'} |
|
663
|
0 |
0 |
if defined $var{'M'} |
|
665
|
0 |
0 |
if $domain and $domain =~ /([A-Za-z0-9](?:[\.\-A-Za-z0-9]+))/ |
|
668
|
0 |
0 |
if $^O eq 'darwin' and $domain =~ /\.local$/ |
|
670
|
0 |
0 |
if defined $domain and not $domain =~ /\$/ |
|
673
|
0 |
0 |
if (open my $cf, '<', '/usr/lib/smail/config') |
|
675
|
0 |
0 |
if (/\A\s*hostnames?\s*=\s*(\S+)/) |
|
677
|
0 |
0 |
if $^O eq 'darwin' and $domain =~ /\.local$/ |
|
678
|
0 |
0 |
if defined $domain and $domain |
|
681
|
0 |
0 |
unless close $cf |
|
683
|
0 |
0 |
if defined $domain |
|
686
|
0 |
0 |
if (eval {
do {
require Net::SMTP
}
}) |
|
694
|
0 |
0 |
if (defined $smtp) |
|
697
|
0 |
0 |
if $^O eq 'darwin' and $domain =~ /\.local$/ |
|
698
|
0 |
0 |
if defined $domain and $domain |
|
703
|
0 |
0 |
unless (defined $domain) |
|
704
|
0 |
0 |
if ($self->_have_net_domain) |
|
710
|
0 |
0 |
if $^O eq 'darwin' and $domain =~ /\.local$/ |
|
714
|
0 |
0 |
unless defined $domain |
|
723
|
0 |
0 |
if $self->debug |
|
730
|
0 |
0 |
unless $mailaddress =~ /\@/ |
|
734
|
0 |
0 |
if ($realname) |
|
743
|
0 |
0 |
if $self->debug |
|
758
|
0 |
55 |
if $self->debug |