Branch Coverage

blib/lib/Sendmail/PMilter.pm
Criterion Covered Total %
branch 6 152 3.9


line true false branch
290 0 0 unless $this->{'max_interpreters'}
306 0 0 unless $this->{'max_requests'}
339 0 0 unless defined $this->{'socket'}
340 0 0 unless defined $this->{'callbacks'}
341 0 0 unless defined $this->{'milter protocol version'}
346 0 0 if defined $max_interpreters and $max_interpreters =~ /^\d+$/u
347 0 0 if defined $max_requests and $max_requests =~ /^\d+$/u
351 0 0 unless (defined $dispatcher)
415 0 0 unless defined $this->{'name'}
416 0 0 if ref $this->{'name'}
421 0 0 unless defined $callbacks
422 0 0 unless UNIVERSAL::isa($callbacks, "HASH")
429 0 0 if (defined $cb and not UNIVERSAL::isa($cb, "CODE"))
431 0 0 if (exists &$cb) { }
442 0 0 $this->{'callback_flags'} & 18446744073709551552 ? :
495 0 0 unless $conn =~ /^([^:]+):([^:\@]+)(?:@([^:\@]+|\[[0-9a-f:\.]+\]))?$/u
498 0 0 if ($1 eq 'local' or $1 eq 'unix') { }
0 0 elsif ($1 eq 'inet') { }
0 0 elsif ($1 eq 'inet6') { }
505 0 0 unless $path =~ m[^/]u
508 0 0 if ($perms)
513 0 0 if (-e $path and not -S $path) { }
524 0 0 if (defined $socket and not $socket->bind($addr))
525 0 0 if ($socket->connect($addr)) { }
531 0 0 unless $socket->bind($addr)
537 0 0 if (defined $socket)
538 0 0 unless $socket->listen($backlog)
564 0 0 if (defined $socket) { }
618 0 0 if defined $this->{'socket'}
637 0 0 if defined $this->{'socket'}
638 0 0 unless UNIVERSAL::isa($socket, "IO::Socket")
672 0 4 unless open CF, '<' . $cf
677 0 4 unless s/^X([^,\s]+),\s*//u
678 0 4 unless $milter eq $1
681 4 0 if ($1 eq "S")
712 0 0 if (defined $conn) { }
733 2 5 unless $this->{'sendmail_cf'}
754 0 0 unless open CF, '<' . $cf
759 0 0 if (s/^C\s*$class\s*//u) { }
0 0 elsif (s/^F\s*$class\s*(-o)?\s*//u) { }
767 0 0 if /^\|/u
769 0 0 if (open I, '<' . $_) { }
0 0 elsif ($required) { }
773 0 0 if /^$/u
805 0 0 unless open CF, '<' . $cf
808 0 0 if (/^O\s*$option=(\d+)/u)
880 0 0 if ($maxchildren)
884 0 0 exists $SIG{'INFO'} ? :
900 0 0 if ($child_sem)
903 0 0 if $died
908 0 0 if $!{'EINTR'}
910 0 0 if $DEBUG > 0
912 0 0 if ($child_sem and not $child_sem->down_nb)
1002 0 0 exists $SIG{'INFO'} ? :
1008 0 0 if (defined $params{'child_init'})
1015 0 0 if $!{'EINTR'}
1016 0 0 if $DEBUG > 0
1022 0 0 if ($@)
1033 0 0 if (defined $params{'milter_exit'})
1054 0 0 unless defined $pid
1056 0 0 if ($pid) { }
1060 0 0 if (defined $params{'child_exit'}) { }
1081 0 0 if ($sig_name eq "QUIT")
1101 0 0 if $pid > 0
1146 0 0 exists $SIG{'INFO'} ? :
1153 0 0 unless $socket
1155 0 0 if $DEBUG > 0
1162 0 0 if ($cnchildren >= $maxchildren) { }
1164 0 0 unless ($paused)
1171 0 0 if ($paused)
1177 0 0 if ($pid < 0) { }
0 0 elsif ($pid) { }
1181 0 0 if defined $socket
1191 0 0 if defined $socket
1226 0 0 if $!{'EINTR'}
1228 0 0 if $DEBUG > 0