Branch Coverage

blib/lib/Sendmail/PMilter.pm
Criterion Covered Total %
branch 6 144 4.1


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 ? :
490 0 0 unless $conn =~ /^([^:]+):([^:\@]+)(?:@([^:\@]+|\[[0-9a-f:\.]+\]))?$/u
493 0 0 if ($1 eq 'local' or $1 eq 'unix') { }
0 0 elsif ($1 eq 'inet') { }
0 0 elsif ($1 eq 'inet6') { }
499 0 0 unless $path =~ m[^/]u
502 0 0 if (-e $path and not -S $path) { }
513 0 0 if (defined $socket and not $socket->bind($addr))
514 0 0 if ($socket->connect($addr)) { }
520 0 0 unless $socket->bind($addr)
524 0 0 if (defined $socket)
525 0 0 unless $socket->listen($backlog)
551 0 0 if (defined $socket) { }
605 0 0 if defined $this->{'socket'}
624 0 0 if defined $this->{'socket'}
625 0 0 unless UNIVERSAL::isa($socket, "IO::Socket")
659 0 4 unless open CF, "<" . $cf
664 0 4 unless s/^X([^,\s]+),\s*//u
665 0 4 unless $milter eq $1
668 4 0 if ($1 eq "S")
699 0 0 if (defined $conn) { }
720 2 5 unless $this->{'sendmail_cf'}
741 0 0 unless open CF, "<" . $cf
746 0 0 if (s/^C\s*$class\s*//u) { }
0 0 elsif (s/^F\s*$class\s*(-o)?\s*//u) { }
754 0 0 if /^\|/u
756 0 0 if (open I, '<' . $_) { }
0 0 elsif ($required) { }
760 0 0 if /^$/u
792 0 0 unless open CF, "<" . $cf
795 0 0 if (/^O\s*$option=(\d+)/u)
867 0 0 if ($maxchildren)
871 0 0 exists $SIG{'INFO'} ? :
887 0 0 if ($child_sem)
890 0 0 if $died
895 0 0 if $!{'EINTR'}
897 0 0 if $DEBUG > 0
899 0 0 if ($child_sem and not $child_sem->down_nb)
981 0 0 exists $SIG{'INFO'} ? :
987 0 0 if (defined $params{'child_init'})
994 0 0 if $!{'EINTR'}
996 0 0 if $DEBUG > 0
1004 0 0 if (defined $params{'child_exit'})
1030 0 0 unless defined $pid
1032 0 0 if ($pid) { }
1050 0 0 if $pid > 0
1095 0 0 exists $SIG{'INFO'} ? :
1102 0 0 unless $socket
1104 0 0 if $DEBUG > 0
1111 0 0 if ($cnchildren >= $maxchildren) { }
1113 0 0 unless ($paused)
1120 0 0 if ($paused)
1126 0 0 if ($pid < 0) { }
0 0 elsif ($pid) { }
1130 0 0 if defined $socket
1140 0 0 if defined $socket
1175 0 0 if $!{'EINTR'}
1177 0 0 if $DEBUG > 0