Branch Coverage

lib/ControlFreak/Socket.pm
Criterion Covered Total %
branch 17 42 40.4


line true false branch
87 1 4 unless ($ctrl)
92 0 4 unless ($param{'name'})
99 1 3 unless ($ctrl->add_socket($socket))
120 0 2 if ($$socket{'fh'})
126 0 2 unless ($fh)
146 0 2 unless my $ipn = &AnyEvent::Socket::parse_address($host)
158 0 2 unless socket $fh, $af, 1, 0
161 2 0 if ($af == 2 or $af == 10) { }
0 0 elsif ($af == 1) { }
162 0 2 unless setsockopt $fh, 1, 2, 1
166 0 2 unless ($service =~ /^\d*$/)
167 0 0 unless $service = (getservbyname $service, 'tcp')[2]
174 0 2 unless CORE::bind $fh, &AnyEvent::Socket::pack_sockaddr($service, $ipn)
177 0 2 $socket->nonblocking ? :
183 0 2 unless listen $fh, $len
194 4 1 (shift())->{'fh'} ? :
205 0 0 unless $socket->is_bound
212 0 0 unless my $value = _STRING($_[0])
220 0 0 unless my $value = _STRING($_[0])
228 0 0 shift() ? :
236 0 0 if $size and $size =~ /^\s*max\s*$/i