Branch Coverage

blib/lib/TheSchwartz/Worker/SendEmail.pm
Criterion Covered Total %
branch 0 56 0.0


line true false branch
109 0 0 unless $host
117 0 0 unless (%dom_rcpts)
124 0 0 if (scalar keys %dom_rcpts > 1)
150 0 0 unless @ex
158 0 0 unless $smtp
169 0 0 if ($job)
172 0 0 unless $smtp->reset
187 0 0 if ($ENV{'DEBUG'})
205 0 0 unless ($headers =~ /^message-id:.+/im)
217 0 0 if ($smtp->status == 5)
224 0 0 unless $smtp->mail($env_from)
229 0 0 if ($smtp->to($rcpt))
233 0 0 if ($smtp->status == 5)
241 0 0 unless ($got_an_okay)
261 0 0 unless $smtp->data
262 0 0 unless $smtp->datasend($rcvd . $headers . $body)
263 0 0 unless $smtp->dataend
276 0 0 unless $keep_exit_status_for
277 0 0 if ref $keep_exit_status_for eq 'CODE'
317 0 0 if (@_ % 2) { }
325 0 0 defined $host ? :
331 0 0 ref $hosts ? :
332 0 0 unless $obj = $type->IO::Socket::INET::new('PeerAddr', $host = $h, 'PeerPort', $arg{'Port'} || 'smtp(25)', 'LocalAddr', $arg{'LocalAddr'}, 'LocalPort', $arg{'LocalPort'}, 'Proto', 'tcp', 'Timeout', $connect_timeout)
343 0 0 exists $arg{'Debug'} ? :
346 0 0 unless ($res == CMD_OK())
352 0 0 if $obj
355 0 0 unless $obj
362 0 0 unless ($obj->hello($arg{'Hello'} || ''))