Branch Coverage

blib/lib/Mail/Spool.pm
Criterion Covered Total %
branch 38 132 28.7


line true false branch
91 0 1 @_ && ref $_[0] ? :
128 0 1 unless (-d $self->dequeue_dir)
130 0 0 unless -d $self->dequeue_dir
137 7 0 unless (-d $dir)
139 0 7 unless -d $dir
200 6 2 if $int
202 0 2 $i == $last ? :
212 1 1 unless (wantarray)
250 0 0 unless $lock
254 0 0 unless ($fh)
270 0 0 if ($ok and not $error)
279 0 0 unless (defined $node->fallback_filename)
283 0 0 unless $@ =~ /and thus/
288 0 0 unless ($error =~ /^Undeliverable/i)
297 0 0 if ($node->from or length $node->from)
323 0 2 if ($@)
355 1 0 if (@_ and $_[0] and ref $_[0] and $_[0]->isa('Mail::Spool')) { }
362 0 1 @_ && ref $_[0] ? :
367 0 1 unless $m
372 0 0 ref $$args{'to'} eq 'ARRAY' ? :
0 1 $$args{'to'} ? :
373 1 0 unless (ref $to and @$to)
386 0 1 unless @$to
391 1 0 unless (defined $from)
394 1 0 @objs ? :
396 0 1 unless defined $from
407 0 1 unless $$args{'delivery'} =~ /^(Deferred|Background|Interactive)$/
412 1 0 if ($$args{'delivery'} eq 'Deferred') { }
416 1 0 unless ($id)
419 0 0 if ($tag =~ /\s+id\s+\(([^\)]+)\)/)
425 1 0 unless ($id)
467 1 0 @_ && ref $_[0] ? :
470 1 0 $m ? :
473 1 0 if (not $ref or $ref eq 'SCALAR') { }
0 0 elsif ($ref eq 'ARRAY') { }
0 0 elsif (not $m->can('head')) { }
0 0 elsif (not $m->can('print')) { }
476 0 1 if (not $m) { }
480 0 0 unless ($fh)
481 0 0 unless $$args{'filename'}
482 0 0 unless -e $$args{'filename'}
484 0 0 unless $fh
492 1 0 $ref ? :
518 1 0 @_ && ref $_[0] ? :
533 0 1 unless defined $node
537 0 1 unless defined $lock
552 0 0 @_ && ref $_[0] ? :
558 0 0 unless @to and ref $to[0]
566 0 0 $$args{'timeout'} ? :
570 0 0 unless @mx
578 0 0 if defined $sock
582 0 0 $old_alarm ? :
586 0 0 unless (defined $sock)
587 0 0 if ($$args{'delivery'} eq 'Background') { }
590 0 0 if ($@) { }
644 0 0 unless ($$body[$#$body] =~ /$crlf/)
658 0 0 unless $sock->quit
669 0 0 if (not $sock->status) { }
0 0 elsif ($sock->status == 5) { }
0 0 elsif ($sock->status == 4) { }
724 1 0 unless -d $self->usage_log
725 0 0 unless (open _FH, '>>' . $self->usage_log . '/raw')
739 5 0 $Mail::Spool::AUTOLOAD =~ /([^:]+)$/ ? :
742 5 0 if ($method =~ /^(dequeue_dir| dequeue_periods| dequeue_priority| dequeue_timeout| max_dequeue_processes| usage_log| max_connection_time )$/x)
753 5 22 unless defined $$self{$method}
756 1 26 if @_