|  line  | 
 true  | 
 false  | 
 branch  | 
 
| 
17
 | 
 0  | 
 1  | 
 ref $options eq 'HASH' ? :  | 
 
| 
61
 | 
 0  | 
 0  | 
 unless $wheel_id and defined $self->{'clients'}{$wheel_id}  | 
 
| 
67
 | 
 0  | 
 0  | 
 unless $wheel_id and defined $self->{'links'}{$wheel_id}  | 
 
| 
73
 | 
 0  | 
 0  | 
 unless $wheel_id and defined $self->{'sockets'}{$wheel_id}  | 
 
| 
79
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
83
 | 
 0  | 
 0  | 
 if $cid eq $id  | 
 
| 
84
 | 
 0  | 
 0  | 
 if $self->{'clients'}{$cid}{'dstip'} ne $client->{'dstip'}  | 
 
| 
85
 | 
 0  | 
 0  | 
 if $self->{'clients'}{$cid}{'dstport'} ne $client->{'dstport'}  | 
 
| 
100
 | 
 0  | 
 1  | 
 if ($self->{'alias'}) { }  | 
 
| 
106
 | 
 1  | 
 0  | 
 if ($kernel != $sender)  | 
 
| 
120
 | 
 0  | 
 1  | 
 defined $self->{'address'} ? :  | 
 
| 
 | 
 1  | 
 0  | 
 defined $self->{'port'} ? :  | 
 
| 
138
 | 
 1  | 
 0  | 
 unless $self->{'alias'}  | 
 
| 
150
 | 
 0  | 
 0  | 
 if ($self->denied($peeraddr))  | 
 
| 
163
 | 
 0  | 
 0  | 
 unless $wheel  | 
 
| 
178
 | 
 0  | 
 0  | 
 if ($self->{'ident'})  | 
 
| 
203
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($wheel_id)  | 
 
| 
215
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($wheel_id)  | 
 
| 
223
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
224
 | 
 0  | 
 0  | 
 unless defined $self->{'clients'}{$id}{'user_id'}  | 
 
| 
225
 | 
 0  | 
 0  | 
 unless defined $self->{'clients'}{$id}{'ident'}  | 
 
| 
227
 | 
 0  | 
 0  | 
 unless ($client->{'ident'})  | 
 
| 
231
 | 
 0  | 
 0  | 
 unless ($client->{'ident'} eq $client->{'user_id'})  | 
 
| 
235
 | 
 0  | 
 0  | 
 if $client->{'cd'} eq '1'  | 
 
| 
236
 | 
 0  | 
 0  | 
 if $client->{'cd'} eq '2'  | 
 
| 
242
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
254
 | 
 0  | 
 0  | 
 if $null_idx == -1  | 
 
| 
256
 | 
 0  | 
 0  | 
 unless $request  | 
 
| 
258
 | 
 0  | 
 0  | 
 unless $packet or length $packet == 4  | 
 
| 
260
 | 
 0  | 
 0  | 
 unless scalar @results == 3  | 
 
| 
262
 | 
 0  | 
 0  | 
 unless $dstip  | 
 
| 
267
 | 
 0  | 
 0  | 
 unless $id  | 
 
| 
274
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
277
 | 
 0  | 
 0  | 
 unless ($client->{'link_id'})  | 
 
| 
280
 | 
 0  | 
 0  | 
 unless (@args)  | 
 
| 
286
 | 
 0  | 
 0  | 
 unless ($dstip)  | 
 
| 
293
 | 
 0  | 
 0  | 
 if ($vn ne '4' or not $cd =~ /^(1|2)$/)  | 
 
| 
297
 | 
 0  | 
 0  | 
 if ($dstip =~ /^0\.0\.0\./ and $cd ne '2')  | 
 
| 
299
 | 
 0  | 
 0  | 
 unless ($host)  | 
 
| 
308
 | 
 0  | 
 0  | 
 if ($response)  | 
 
| 
313
 | 
 0  | 
 0  | 
 if ($cd eq '2')  | 
 
| 
315
 | 
 0  | 
 0  | 
 unless ($cid)  | 
 
| 
320
 | 
 0  | 
 0  | 
 if $self->{'ident'}  | 
 
| 
321
 | 
 0  | 
 0  | 
 unless $self->{'ident'}  | 
 
| 
324
 | 
 0  | 
 0  | 
 if $self->{'ident'}  | 
 
| 
325
 | 
 0  | 
 0  | 
 unless $self->{'ident'}  | 
 
| 
328
 | 
 0  | 
 0  | 
 unless $self->_link_exists($client->{'link_id'})  | 
 
| 
338
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
339
 | 
 0  | 
 0  | 
 unless (defined $net_dns_packet)  | 
 
| 
344
 | 
 0  | 
 0  | 
 unless (@net_dns_answers)  | 
 
| 
349
 | 
 0  | 
 0  | 
 unless $net_dns_answer->type eq 'A'  | 
 
| 
352
 | 
 0  | 
 0  | 
 if $self->{'ident'}  | 
 
| 
353
 | 
 0  | 
 0  | 
 unless $self->{'ident'}  | 
 
| 
362
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
370
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
371
 | 
 0  | 
 0  | 
 if $self->{'clients'}{$id}{'link_id'}  | 
 
| 
372
 | 
 0  | 
 0  | 
 unless $self->{'clients'}{$id}{'reject'}  | 
 
| 
379
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
387
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
389
 | 
 0  | 
 0  | 
 if ($client->{'link_id'} and $self->_link_exists($client->{'link_id'}))  | 
 
| 
392
 | 
 0  | 
 0  | 
 if ($client->{'factory'} and $self->_sock_exists($client->{'factory'}))  | 
 
| 
400
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
419
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($id)  | 
 
| 
422
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($primary)  | 
 
| 
424
 | 
 0  | 
 0  | 
 unless $link_id or $self->_link_exists($link_id)  | 
 
| 
437
 | 
 0  | 
 0  | 
 unless ($sockname)  | 
 
| 
457
 | 
 0  | 
 0  | 
 if $self->_conn_exists($client_id)  | 
 
| 
468
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($client_id)  | 
 
| 
493
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($client_id)  | 
 
| 
495
 | 
 0  | 
 0  | 
 unless ($peeraddr eq $client->{'dstip'})  | 
 
| 
523
 | 
 0  | 
 0  | 
 unless $self->_link_exists($link_id)  | 
 
| 
525
 | 
 0  | 
 0  | 
 unless $self->_conn_exists($client_id)  | 
 
| 
532
 | 
 0  | 
 0  | 
 unless $self->_link_exists($link_id)  | 
 
| 
536
 | 
 0  | 
 0  | 
 if ($link->{'client'} and $self->_conn_exists($link->{'client'}))  | 
 
| 
548
 | 
 0  | 
 0  | 
 unless (@events)  | 
 
| 
556
 | 
 0  | 
 0  | 
 unless /^_/  | 
 
| 
559
 | 
 0  | 
 0  | 
 unless ($self->{'sessions'}{$sender_id}{'refcnt'}++ or $session == $sender)  | 
 
| 
572
 | 
 0  | 
 0  | 
 unless (@events)  | 
 
| 
586
 | 
 0  | 
 0  | 
 unless /^_/  | 
 
| 
588
 | 
 0  | 
 0  | 
 unless ($blah)  | 
 
| 
592
 | 
 0  | 
 0  | 
 if (--$self->{'sessions'}{$sender_id}{'refcnt'} <= 0)  | 
 
| 
594
 | 
 0  | 
 0  | 
 unless ($session == $sender)  | 
 
| 
606
 | 
 1  | 
 0  | 
 if (--$self->{'sessions'}{$session_id}{'refcnt'} <= 0)  | 
 
| 
608
 | 
 1  | 
 0  | 
 unless $session_id eq $socksd_id  | 
 
| 
645
 | 
 0  | 
 0  | 
 unless $netmask->isa('Net::Netmask')  | 
 
| 
653
 | 
 0  | 
 0  | 
 unless $netmask->isa('Net::Netmask')  | 
 
| 
654
 | 
 0  | 
 0  | 
 unless $self->{'denials'}{$netmask}  | 
 
| 
662
 | 
 0  | 
 0  | 
 unless $netmask->isa('Net::Netmask')  | 
 
| 
663
 | 
 0  | 
 0  | 
 unless $self->{'exemptions'}{$netmask}  | 
 
| 
670
 | 
 0  | 
 0  | 
 unless $netmask->isa('Net::Netmask')  | 
 
| 
671
 | 
 0  | 
 0  | 
 unless $self->{'exemptions'}{$netmask}  | 
 
| 
679
 | 
 0  | 
 0  | 
 if $self->exempted($ipaddr)  | 
 
| 
681
 | 
 0  | 
 0  | 
 if $self->{'denials'}{$mask}->match($ipaddr)  | 
 
| 
690
 | 
 0  | 
 0  | 
 if $self->{'exemptions'}{$mask}->match($ipaddr)  |