| line |
true |
false |
branch |
|
13
|
0 |
0 |
if (@_ != 3) |
|
16
|
0 |
0 |
unless ($ENV{'PERL_CPAN_REPORTER_DIR'} or $ENV{'HOME'}) |
|
25
|
0 |
0 |
unless open my $fh, '>', $reporter_folder . '/config.ini' |
|
32
|
0 |
0 |
unless close $fh |
|
46
|
0 |
0 |
ref $self ? : |
|
48
|
0 |
0 |
if $net_class eq 'Net::SMTP::Authen' |
|
60
|
0 |
0 |
unless $user_name |
|
61
|
0 |
0 |
if $self->_net_class eq 'Net::SMTP::TLS' |
|
93
|
0 |
0 |
if (defined $smtp) |
|
99
|
0 |
0 |
unless $mx and $smtp |
|
102
|
0 |
0 |
if (@$recipients) |
|
103
|
0 |
0 |
if ($mx =~ /(?:^|\.)(?:perl|cpan)\.org$/) |
|
105
|
0 |
0 |
if ($recipient =~ /(?:@|\.)(?:perl|cpan)\.org$/) { } |
|
112
|
0 |
0 |
if (@bad) |
|
124
|
0 |
0 |
if $via |
|
132
|
0 |
0 |
if ref $smtp eq 'Net::SMTP' |
|
135
|
0 |
0 |
unless eval {
do {
trace(1);
&$die() unless $self->_perform_auth($smtp);
trace();
&$die() unless $smtp->mail($envelope_sender);
trace();
&$die() unless $smtp->to($report->address);
trace();
if (@$recipients) {
&$die() unless $smtp->cc(@$recipients);
} ;
trace();
&$die() unless $smtp->data;
trace();
&$die() unless $smtp->datasend('Date: ', $self->_format_date, "\n");
trace();
&$die() unless $smtp->datasend('Subject: ', $report->subject, "\n");
trace();
&$die() unless $smtp->datasend("From: $from\n");
trace();
&$die() unless $smtp->datasend('To: ', $report->address, "\n");
trace();
if (@$recipients) {
&$die() unless $smtp->datasend("Cc: $cc_str\n");
} ;
trace();
&$die() unless $smtp->datasend('Message-ID: ', $report->message_id, "\n");
trace();
&$die() unless $smtp->datasend("X-Reported-Via: Test::Reporter $Test::Reporter::VERSION$via\n");
trace();
&$die() unless $smtp->datasend("\n");
trace();
trace();
&$die() unless $smtp->datasend($report->report);
trace();
&$die() unless $smtp->dataend;
trace();
&$die() unless $smtp->quit;
trace();
1
}
} |
|
137
|
0 |
0 |
unless $self->_perform_auth($smtp) |
|
140
|
0 |
0 |
unless $smtp->mail($envelope_sender) |
|
142
|
0 |
0 |
unless $smtp->to($report->address) |
|
144
|
0 |
0 |
unless $smtp->cc(@$recipients) |
|
|
0 |
0 |
if (@$recipients) |
|
146
|
0 |
0 |
unless $smtp->data |
|
148
|
0 |
0 |
unless $smtp->datasend('Date: ', $self->_format_date, "\n") |
|
150
|
0 |
0 |
unless $smtp->datasend('Subject: ', $report->subject, "\n") |
|
152
|
0 |
0 |
unless $smtp->datasend("From: $from\n") |
|
154
|
0 |
0 |
unless $smtp->datasend('To: ', $report->address, "\n") |
|
156
|
0 |
0 |
unless $smtp->datasend("Cc: $cc_str\n") |
|
|
0 |
0 |
if (@$recipients) |
|
158
|
0 |
0 |
unless $smtp->datasend('Message-ID: ', $report->message_id, "\n") |
|
160
|
0 |
0 |
unless $smtp->datasend("X-Reported-Via: Test::Reporter $Test::Reporter::VERSION$via\n") |
|
162
|
0 |
0 |
unless $smtp->datasend("\n") |
|
165
|
0 |
0 |
unless $smtp->datasend($report->report) |
|
167
|
0 |
0 |
unless $smtp->dataend |
|
169
|
0 |
0 |
unless $smtp->quit |