Branch Coverage

blib/lib/POE/Component/Server/TCP.pm
Criterion Covered Total %
branch 96 154 62.3


line true false branch
20 0 14 if ($@)
23 0 0 if ($@)
51 0 20 if @_ & 1
62 3 17 unless defined $port
72 0 200 if defined $param{$_} and ref $param{$_} ne 'CODE'
85 0 20 if ($mark_param_count and $mark_param_count < 4)
89 20 0 unless defined $high_event
90 20 0 unless defined $low_event
98 0 20 unless defined $accept_callback xor defined $client_input
102 8 12 unless (defined $client_input)
122 19 1 unless defined $listener_args
123 0 20 unless ref $listener_args eq 'ARRAY'
126 0 20 if (exists $param{'Args'})
127 0 0 if (exists $param{'ClientArgs'}) { }
138 0 20 if (defined $client_infilter and not defined $client_outfilter or defined $client_outfilter and not defined $client_infilter)
143 0 20 if (defined $client_filter and defined $client_infilter)
150 16 4 unless defined $concurrency
153 0 20 if (not defined $address and defined $hname)
156 0 20 unless defined $address
158 20 0 unless defined $error_callback
160 20 0 unless defined $session_type
161 0 20 if (defined $session_params and ref $session_params) { }
162 0 0 if (ref $session_params ne 'ARRAY')
169 12 8 if (defined $client_input)
170 8 4 unless defined $client_error
171 11 1 unless defined $client_args
176 11 1 unless defined $inline_states
179 11 1 unless defined $package_states
182 11 1 unless defined $object_states
185 0 12 if (exists $param{'ClientShutdownOnError'})
189 0 12 unless ref $inline_states eq 'HASH'
192 0 12 unless ref $package_states eq 'ARRAY'
195 0 12 unless ref $object_states eq 'ARRAY'
198 0 12 unless ref $client_args eq 'ARRAY'
217 0 14 if (my(@forbidden_inline_handlers) = grep({exists $$inline_states{$_};} keys %forbidden_handlers))
235 8 0 unless defined $handlers
239 0 0 if (ref $handlers eq 'HASH') { }
0 8 elsif (ref $handlers eq 'ARRAY') { }
258 0 20 if @forbidden_handlers
266 6 6 unless (defined $accept_callback)
286 4 34 if ($domain == 1 or $domain == 1) { }
30 6 elsif (length $remote_addr == 4) { }
301 6 28 if ($client_pre_connect)
303 4 2 unless (defined $socket and ref $socket and fileno $socket)
312 0 38 $mark_param_count ? :
340 30 0 if $client_connected
349 0 40 if $_[3]{'shutdown'}
357 24 0 unless ($_[10] eq 'accept' and $_[11] == 103)
359 22 2 if ($_[3]{'shutdown_on_error'})
368 36 0 if $client_flushed
369 18 18 if ($$heap{'shutdown'})
371 20 0 if $client_disconnected
379 28 26 if (defined $$heap{'client'})
380 18 10 if ($$heap{'got_an_error'} or not $$heap{'client'}->get_driver_out_octets)
385 24 0 if $client_disconnected
395 36 0 if (defined $accept_session_id) { }
439 36 18 if ($_[3]{'concurrency'} != -1 and $_[3]{'listener'})
440 24 20 if ($_[3]{'connections'} >= $_[3]{'concurrency'})
459 12 10 if (defined $alias)
467 0 14 $domain == 1 || $domain == 1 ? :
478 14 0 if $server_started
493 4 48 if ($_[3]{'connections'} < 0)
500 32 16 if ($_[3]{'concurrency'} != -1 and $_[3]{'listener'})
501 23 15 if ($_[3]{'connections'} == $_[3]{'concurrency'} - 1)
517 0 0 if ($_[3]{'concurrency'} != -1 and $_[3]{'listener'})
518 0 0 if ($_[3]{'connections'} >= $_[3]{'concurrency'}) { }
538 10 0 if defined $_[3]{'alias'}
545 0 14 if $server_stopped
561 0 38 if (defined $client_infilter or defined $client_outfilter) { }
6 32 elsif (defined $client_filter) { }
580 2 4 if (ref $filter eq 'ARRAY') { }
0 4 elsif (ref $filter) { }
583 2 0 if (_test_filter($filter)) { }
593 4 0 if (_test_filter($filter)) { }
609 0 0 if (not $eval and $@)
634 0 4 unless ($syscall eq 'read' and $errno == 0 || $errno == 104)
635 0 0 unless $errno