Branch Coverage

blib/lib/Net/Server/Proto/UNIX.pm
Criterion Covered Total %
branch 16 42 38.1


line true false branch
26 8 13 if @_
29 4 2 if @_
36 6 0 if ($class eq __PACKAGE__)
40 6 0 unless exists $server->{'server'}{'unix_type'}
42 0 3 defined $server->{'server'}{'unix_type'} ? :
3 3 defined $info->{'unix_type'} ? :
44 2 4 if ($u_type eq 'SOCK_DGRAM' or $u_type eq '2') { }
0 8 elsif ($u_type ne 'SOCK_STREAM' and $u_type ne '1') { }
54 4 0 $info->{'port'} =~ m[^ ([\w\.\-\*\/]+) $ ]x ? :
57 0 3 defined $server->{'server'}{'listen'} ? :
1 3 defined $info->{'listen'} ? :
65 0 0 if -e $path and not unlink($path)
67 0 0 unless $sock->SUPER::configure({"Local", $path, "Type", 1, "Listen", $sock->NS_listen})
81 0 0 unless $sock->fdopen($fd, "w")
87 0 0 if (wantarray) { }
92 0 0 if (defined $client)
95 0 0 wantarray ? :
116 0 0 unless defined $bytes or defined $end_qr
121 0 0 if (defined $bytes and length $content >= $bytes) { }
0 0 elsif (defined $end_qr and $content =~ /$end_qr/) { }
129 0 0 wantarray ? :