Branch Coverage

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


line true false branch
320 0 0 unless $this->{'max_interpreters'}
336 0 0 unless $this->{'max_requests'}
369 0 0 unless defined $this->{'socket'}
370 0 0 unless defined $this->{'callbacks'}
371 0 0 unless defined $this->{'milter protocol version'}
376 0 0 if defined $max_interpreters and $max_interpreters =~ /^\d+$/u
377 0 0 if defined $max_requests and $max_requests =~ /^\d+$/u
381 0 0 unless (defined $dispatcher)
445 0 0 unless defined $this->{'name'}
446 0 0 if ref $this->{'name'}
451 0 0 unless defined $callbacks
452 0 0 unless UNIVERSAL::isa($callbacks, "HASH")
459 0 0 if (defined $cb and not UNIVERSAL::isa($cb, "CODE"))
461 0 0 if (exists &$cb) { }
472 0 0 $this->{'callback_flags'} & 18446744073709551552 ? :
520 0 0 unless $conn =~ /^([^:]+):([^:\@]+)(?:@([^:\@]+|\[[0-9a-f:\.]+\]))?$/u
523 0 0 if ($1 eq 'local' or $1 eq 'unix') { }
0 0 elsif ($1 eq 'inet') { }
0 0 elsif ($1 eq 'inet6') { }
529 0 0 unless $path =~ m[^/]u
532 0 0 if (-e $path and not -S $path) { }
543 0 0 if (defined $socket and not $socket->bind($addr))
544 0 0 if ($socket->connect($addr)) { }
550 0 0 unless $socket->bind($addr)
554 0 0 if (defined $socket)
555 0 0 unless $socket->listen($backlog)
581 0 0 if (defined $socket) { }
635 0 0 if defined $this->{'socket'}
654 0 0 if defined $this->{'socket'}
655 0 0 unless UNIVERSAL::isa($socket, "IO::Socket")
689 0 4 unless open CF, "<" . $cf
694 0 4 unless s/^X([^,\s]+),\s*//u
695 0 4 unless $milter eq $1
698 4 0 if ($1 eq "S")
729 0 0 if (defined $conn) { }
750 2 5 unless $this->{'sendmail_cf'}
771 0 0 unless open CF, "<" . $cf
776 0 0 if (s/^C\s*$class\s*//u) { }
0 0 elsif (s/^F\s*$class\s*(-o)?\s*//u) { }
784 0 0 if /^\|/u
786 0 0 if (open I, '<' . $_) { }
0 0 elsif ($required) { }
790 0 0 if /^$/u
822 0 0 unless open CF, "<" . $cf
825 0 0 if (/^O\s*$option=(\d+)/u)
897 0 0 if ($maxchildren)
901 0 0 exists $SIG{'INFO'} ? :
917 0 0 if ($child_sem)
920 0 0 if $died
925 0 0 if $!{'EINTR'}
927 0 0 if $DEBUG > 0
929 0 0 if ($child_sem and not $child_sem->down_nb)
1011 0 0 exists $SIG{'INFO'} ? :
1017 0 0 if (defined $params{'child_init'})
1024 0 0 if $!{'EINTR'}
1026 0 0 if $DEBUG > 0
1034 0 0 if (defined $params{'child_exit'})
1060 0 0 unless defined $pid
1062 0 0 if ($pid) { }
1080 0 0 if $pid > 0
1125 0 0 exists $SIG{'INFO'} ? :
1132 0 0 unless $socket
1134 0 0 if $DEBUG > 0
1141 0 0 if ($cnchildren >= $maxchildren) { }
1143 0 0 unless ($paused)
1150 0 0 if ($paused)
1156 0 0 if ($pid < 0) { }
0 0 elsif ($pid) { }
1160 0 0 if defined $socket
1170 0 0 if defined $socket
1205 0 0 if $!{'EINTR'}
1207 0 0 if $DEBUG > 0