Branch Coverage

blib/lib/POE/Component/Proxy/SOCKS.pm
Criterion Covered Total %
branch 8 188 4.2


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)