|  line  | 
 true  | 
 false  | 
 branch  | 
 
| 
18
 | 
 4  | 
 0  | 
 ref $options eq 'HASH' ? :  | 
 
| 
40
 | 
 0  | 
 0  | 
 unless $wheel_id and defined $$self{'clients'}{$wheel_id}  | 
 
| 
47
 | 
 0  | 
 4  | 
 if ($$self{'alias'}) { }  | 
 
| 
66
 | 
 4  | 
 0  | 
 unless $$self{'alias'}  | 
 
| 
91
 | 
 0  | 
 4  | 
 if (ref $_[10] eq 'HASH') { }  | 
 
| 
97
 | 
 0  | 
 4  | 
 unless (defined $$args{'port'})  | 
 
| 
101
 | 
 0  | 
 4  | 
 if (grep {$$_{'port'} eq $$args{'port'};} values %{$$self{'tcp_ports'};})  | 
 
| 
105
 | 
 0  | 
 4  | 
 unless ($$args{'program'})  | 
 
| 
109
 | 
 4  | 
 0  | 
 unless $$args{'programargs'} and ref $$args{'programargs'} eq 'ARRAY'  | 
 
| 
110
 | 
 0  | 
 4  | 
 if ($$args{'allow'} and not $$args{'allow'}->isa('Net::Netmask'))  | 
 
| 
114
 | 
 0  | 
 4  | 
 if ($$args{'deny'} and not $$args{'deny'}->isa('Net::Netmask'))  | 
 
| 
118
 | 
 0  | 
 4  | 
 defined $$args{'bindaddress'} ? :  | 
 
| 
138
 | 
 0  | 
 0  | 
 if (ref $_[10] eq 'HASH') { }  | 
 
| 
144
 | 
 0  | 
 0  | 
 unless (defined $$args{'port'})  | 
 
| 
149
 | 
 0  | 
 0  | 
 unless $$self{'tcp_ports'}{$sockfactory_id}{'port'} eq $$args{'port'}  | 
 
| 
176
 | 
 0  | 
 14  | 
 defined $$args{'user'} ? :  | 
 
| 
 | 
 0  | 
 14  | 
 defined $$args{'group'} ? :  | 
 
| 
203
 | 
 0  | 
 11  | 
 unless $$self{'wheels'}{$wheel_id}  | 
 
| 
212
 | 
 0  | 
 7  | 
 unless $$self{'wheels'}{$wheel_id}  | 
 
| 
222
 | 
 7  | 
 0  | 
 unless $$self{'clients'}{$client_id}{'shutdown'}  | 
 
| 
229
 | 
 7  | 
 0  | 
 if (defined $$self{'wheels'}{$wheel_id}{'tcp'})  | 
 
| 
231
 | 
 0  | 
 7  | 
 unless $$self{'clients'}{$client_id}  | 
 
| 
240
 | 
 0  | 
 0  | 
 unless $$self{'wheels'}{$wheel_id}  | 
 
| 
248
 | 
 7  | 
 7  | 
 if $$wdata{'alarm'}  | 
 
| 
249
 | 
 14  | 
 0  | 
 if (defined $$wdata{'tcp'})  | 
 
| 
251
 | 
 7  | 
 7  | 
 unless $$self{'clients'}{$client_id}  | 
 
| 
252
 | 
 0  | 
 7  | 
 if ($$self{'clients'}{$client_id}{'pending'})  | 
 
| 
263
 | 
 28  | 
 0  | 
 if $operation eq 'read' and not $errnum  | 
 
| 
264
 | 
 0  | 
 0  | 
 if $operation eq 'read' and not $errnum  |