Branch Coverage

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


line true false branch
25 8 13 if @_
28 4 2 if @_
35 6 0 if ($class eq "Net::Server::Proto::UNIX")
39 6 0 unless exists $server->{'server'}{'unix_type'}
41 0 3 defined $server->{'server'}{'unix_type'} ? :
3 3 defined $info->{'unix_type'} ? :
43 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') { }
53 4 0 $info->{'port'} =~ m[^ ([\w\.\-\*\/]+) $ ]x ? :
56 0 3 defined $server->{'server'}{'listen'} ? :
1 3 defined $info->{'listen'} ? :
64 0 0 if -e $path and not unlink($path)
66 0 0 unless $sock->SUPER::configure({"Local", $path, "Type", 1, "Listen", $sock->NS_listen})
80 0 0 unless $sock->fdopen($fd, "w")
86 0 0 if (wantarray) { }
91 0 0 if (defined $client)
94 0 0 wantarray ? :
115 0 0 unless defined $bytes or defined $end_qr
120 0 0 if (defined $bytes and length $content >= $bytes) { }
0 0 elsif (defined $end_qr and $content =~ /$end_qr/) { }
128 0 0 wantarray ? :