| line |
true |
false |
branch |
|
63
|
0 |
12 |
if $self->debug |
|
64
|
0 |
12 |
unless scalar @_ % 2 == 0 |
|
67
|
4 |
8 |
if @_ |
|
68
|
11 |
1 |
unless $self->transport |
|
69
|
12 |
0 |
if $self->_have_net_dns |
|
81
|
0 |
12 |
if $self->debug |
|
85
|
1 |
11 |
if exists $params{'mx'} |
|
96
|
0 |
11 |
unless (@mx) |
|
97
|
0 |
0 |
if $self->debug |
|
108
|
0 |
4 |
if $self->debug |
|
116
|
0 |
19 |
unless exists $defaults{$param} |
|
129
|
0 |
14 |
if $self->debug |
|
130
|
0 |
14 |
unless defined $$self{'_grade'} and defined $$self{'_distribution'} |
|
133
|
4 |
10 |
if $$self{'_subject_lock'} |
|
143
|
0 |
21 |
if $self->debug |
|
145
|
6 |
15 |
if $$self{'_report_lock'} |
|
153
|
9 |
6 |
if (not $$self{'_comments'}) { } |
|
170
|
0 |
18 |
if $self->debug |
|
179
|
10 |
8 |
if scalar @_ == 1 |
|
181
|
0 |
8 |
unless $grades{$grade} |
|
189
|
0 |
29 |
if $self->debug |
|
191
|
14 |
15 |
unless scalar @_ |
|
196
|
1 |
14 |
unless (eval "require $transport_class; 1") |
|
203
|
0 |
14 |
if (@args and $transport eq 'Mail::Send' and ref $args[0] eq 'ARRAY') { } |
|
|
2 |
12 |
elsif (@args) { } |
|
216
|
0 |
0 |
if $self->debug |
|
224
|
0 |
0 |
if (exists $args{'suffix'} and defined $args{'suffix'} and length $args{'suffix'}) |
|
239
|
0 |
0 |
unless open my $fh, '<', $Test::Reporter::Report |
|
241
|
0 |
0 |
unless close $fh |
|
253
|
0 |
1 |
if $self->debug |
|
259
|
0 |
1 |
unless $self->_verify |
|
261
|
0 |
1 |
if ($self->_is_a_perl_release($self->distribution)) |
|
271
|
0 |
1 |
unless (eval {
do {
$transport->send($self)
}
}) |
|
284
|
0 |
12 |
if $rc |
|
290
|
0 |
3 |
if $self->debug |
|
301
|
0 |
3 |
unless $self->_verify |
|
305
|
3 |
0 |
unless ($fh = $_[0]) |
|
308
|
0 |
3 |
if ($^O eq 'VMS') |
|
320
|
0 |
3 |
if $self->debug |
|
322
|
0 |
3 |
unless open $fh, '>', $file |
|
325
|
3 |
0 |
if ($distfile ne '') |
|
331
|
3 |
0 |
if (not $_[0]) { } |
|
332
|
0 |
3 |
unless close $fh |
|
333
|
0 |
3 |
if $self->debug |
|
342
|
0 |
3 |
if $self->debug |
|
351
|
0 |
3 |
unless open my $fh, '<', $file |
|
353
|
0 |
3 |
unless close $fh |
|
364
|
15 |
0 |
if ($line =~ /^(.+):\s(.+)$/) |
|
366
|
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') { } |
|
386
|
3 |
0 |
if ($$self{'_from'} and $$self{'_subject'}) |
|
389
|
3 |
0 |
if $perlv |
|
394
|
0 |
3 |
unless ($$self{'_report_lock'}) |
|
403
|
0 |
4 |
if $self->debug |
|
408
|
0 |
84 |
unless defined $$self{$key} |
|
412
|
0 |
4 |
if scalar @undefined > 0 |
|
414
|
0 |
4 |
$self->errstr ? : |
|
420
|
0 |
1 |
if $self->debug |
|
436
|
0 |
15 |
if $self->debug |
|
438
|
5 |
10 |
if (@_) { } |
|
443
|
10 |
0 |
if defined $$self{'_from'} and $$self{'_from'} |
|
452
|
0 |
15 |
if $self->debug |
|
454
|
13 |
2 |
if (@_) |
|
456
|
0 |
13 |
if ref $mx ne 'ARRAY' |
|
469
|
0 |
0 |
if $self->debug |
|
470
|
0 |
0 |
unless $self->_have_mail_send |
|
472
|
0 |
0 |
if (@_) |
|
474
|
0 |
0 |
if ref $mail_send_args ne 'ARRAY' |
|
485
|
0 |
4 |
if $self->debug |
|
487
|
2 |
2 |
if (@_) |
|
488
|
0 |
2 |
ref $_[0] eq 'ARRAY' ? : |
|
495
|
0 |
15 |
$^O eq 'MSWin32' || $^O eq 'VMS' ? : |
|
500
|
0 |
22 |
if $self->debug |
|
502
|
2 |
20 |
if (@_) |
|
507
|
0 |
2 |
if ($^O eq 'VMS') |
|
515
|
1 |
1 |
if $conf{'magick'} ne $magick |
|
529
|
0 |
13 |
if ($^O eq 'VMS') |
|
542
|
0 |
19 |
if $method =~ /^DESTROY$/ |
|
544
|
0 |
19 |
unless ($$self{'_attr'}{"_$method"}) |
|
561
|
0 |
11 |
if $$self{'_debug'} |
|
|
2 |
9 |
if @_ |
|
|
0 |
13 |
if $$self{'_debug'} |
|
|
3 |
10 |
if @_ |
|
|
0 |
4 |
if $$self{'_debug'} |
|
|
1 |
3 |
if @_ |
|
|
0 |
9 |
if $$self{'_debug'} |
|
|
4 |
5 |
if @_ |
|
|
0 |
8 |
if $$self{'_debug'} |
|
|
3 |
5 |
if @_ |
|
|
0 |
3 |
if $$self{'_debug'} |
|
|
1 |
2 |
if @_ |
|
|
0 |
9 |
if $$self{'_debug'} |
|
|
4 |
5 |
if @_ |
|
|
0 |
4 |
if $$self{'_debug'} |
|
|
3 |
1 |
if @_ |
|
569
|
0 |
12 |
if $self->debug |
|
571
|
8 |
4 |
if defined $Test::Reporter::DNS |
|
579
|
0 |
0 |
if $self->debug |
|
581
|
0 |
0 |
if defined $Test::Reporter::Domain |
|
589
|
0 |
0 |
if $self->debug |
|
591
|
0 |
0 |
if defined $Test::Reporter::Send |
|
599
|
0 |
0 |
if $self->debug |
|
608
|
0 |
0 |
if system "$editor $Test::Reporter::Report" |
|
609
|
0 |
0 |
unless -e $Test::Reporter::Report |
|
610
|
0 |
0 |
unless -s $Test::Reporter::Report > 2 |
|
615
|
0 |
0 |
if $self->debug |
|
623
|
0 |
0 |
length $input ? : |
|
634
|
0 |
0 |
if $self->debug |
|
637
|
0 |
0 |
if defined $domain |
|
640
|
0 |
0 |
if (defined $ENV{'MAILDOMAIN'}) |
|
652
|
0 |
0 |
if (defined $config and open my $cf, '<', $config) |
|
655
|
0 |
0 |
if (my($v, $arg) = /^D([a-zA-Z])([\w.\$\-]+)/) |
|
656
|
0 |
0 |
exists $var{$1} ? : |
|
660
|
0 |
0 |
unless close $cf |
|
661
|
0 |
0 |
if defined $var{'j'} |
|
662
|
0 |
0 |
if defined $var{'M'} |
|
664
|
0 |
0 |
if $domain and $domain =~ /([A-Za-z0-9](?:[\.\-A-Za-z0-9]+))/ |
|
667
|
0 |
0 |
if $^O eq 'darwin' and $domain =~ /\.local$/ |
|
669
|
0 |
0 |
if defined $domain and not $domain =~ /\$/ |
|
672
|
0 |
0 |
if (open my $cf, '<', '/usr/lib/smail/config') |
|
674
|
0 |
0 |
if (/\A\s*hostnames?\s*=\s*(\S+)/) |
|
676
|
0 |
0 |
if $^O eq 'darwin' and $domain =~ /\.local$/ |
|
677
|
0 |
0 |
if defined $domain and $domain |
|
680
|
0 |
0 |
unless close $cf |
|
682
|
0 |
0 |
if defined $domain |
|
685
|
0 |
0 |
if (eval {
do {
require Net::SMTP
}
}) |
|
693
|
0 |
0 |
if (defined $smtp) |
|
696
|
0 |
0 |
if $^O eq 'darwin' and $domain =~ /\.local$/ |
|
697
|
0 |
0 |
if defined $domain and $domain |
|
702
|
0 |
0 |
unless (defined $domain) |
|
703
|
0 |
0 |
if ($self->_have_net_domain) |
|
709
|
0 |
0 |
if $^O eq 'darwin' and $domain =~ /\.local$/ |
|
713
|
0 |
0 |
unless defined $domain |
|
722
|
0 |
0 |
if $self->debug |
|
729
|
0 |
0 |
unless $mailaddress =~ /\@/ |
|
733
|
0 |
0 |
if ($realname) |
|
742
|
0 |
0 |
if $self->debug |
|
757
|
0 |
55 |
if $self->debug |