Condition Coverage

blib/lib/Net/SC.pm
Criterion Covered Total %
condition 0 136 0.0


and 3 conditions

line !l l&&!r l&&r condition
236 0 0 0 $^O ne 'solaris' and $^O ne 'freebsd'
0 0 0 $^O ne 'solaris' and $^O ne 'freebsd' and eval { do { &Sys::Syslog::_PATH_LOG() } }
277 0 0 0 uc $section eq 'CHAIN_DATA' and (caller)[0] ne 'Net::SC'
473 0 0 0 defined $self->configure('CHAIN_FILE_DATA') and ref $self->configure('CHAIN_FILE_DATA') eq 'ARRAY'
503 0 0 0 defined $socks_host and length $socks_host
507 0 0 0 defined $socks_port and $socks_port > 0
511 0 0 0 defined $socks_proto and length $socks_proto
0 0 0 defined $socks_proto and length $socks_proto and $socks_proto == 4 || $socks_proto == 5 || $socks_proto == 0
570 0 0 0 defined $self->configure('CHAIN_DATA') and defined $id
699 0 0 0 not exists $hash2{$key} and $self->configure('RESTORE_TYPE') == 1
759 0 0 0 defined $peer_host && defined $peer_port
0 0 0 $type != 1 and $type != 2
816 0 0 0 $self->socks_param('protocol_version') == 5 and $self->configure('LOOP_CONNECT') & 1
0 0 0 $self->socks_param('protocol_version') == 0 and $self->configure('LOOP_CONNECT') & 4
0 0 0 $self->socks_param('protocol_version') == 4 and $self->configure('LOOP_CONNECT') & 2
923 0 0 0 ref $self and $self->configure('SYSLOG')
0 0 0 ref $self and $self->configure('SYSLOG') and not $^O =~ /[Ww]in32/
945 0 0 0 ref $self and $self->configure('SYSLOG')
0 0 0 ref $self and $self->configure('SYSLOG') and not $^O =~ /[Ww]in32/
0 0 0 ref $self and $self->configure('SYSLOG')
0 0 0 ref $self and $self->configure('SYSLOG') and defined $self->configure('LOG_FH')
1069 0 0 0 $_ and $is_http_proxy ? !($$fh2 =~ /\r\n\r\n$/) : $cnt--
1097 0 0 0 ref $fh2 eq 'SCALAR' and $self->configure('DEBUG') & 2
1244 0 0 0 length $self->socks_param('user_id') > 0 and length $self->socks_param('user_pswd') > 0
1273 0 0 0 length $self->socks_param('user_id') > 0 and length $self->socks_param('user_pswd') > 0
1296 0 0 0 $method == 2 and length $self->socks_param('user_id') == 0 || length $self->socks_param('user_pswd') == 0

or 2 conditions

line l !l condition
523 0 0 $socks_user || ''
0 0 $socks_pswd || ''
584 0 0 $self->socks_param('attempt_cnt') || 0
622 0 0 $self->configure('CHAIN_DATA')->[$id]{'user_id'} || ''
0 0 $self->configure('CHAIN_DATA')->[$id]{'user_pswd'} || ''
683 0 0 $self->configure('CHAIN_DATA')->[$id]{'user_id'} || ''
0 0 $self->configure('CHAIN_DATA')->[$id]{'user_pswd'} || ''
1124 0 0 $@ || 'Print data error...'

or 3 conditions

line l !l&&r !l&&!r condition
436 0 0 0 {1 => 'general SOCKS server failure', 100 => 'incomplete auth', 101 => 'bad auth', 102 => 'server denies auth method', 2 => 'connection not allowed by ruleset', 202 => 'missing SOCKS server net data', 203 => 'missing peer net data', 204 => 'SOCKS server unavailable', 205 => 'timeout', 206 => 'unsupported protocol version', 207 => 'unsupported address type', 208 => 'hostname lookup failure', 3 => 'network unreachable', 4 => 'host unreachable', 5 => 'connection refused', 6 => 'TTL expired', 7 => 'command not supported', 8 => 'address type not supported', 90 => 'okay', 91 => 'failed', 92 => 'no ident', 93 => 'user mismatch'}->{$_[0]} || $_[0]
498 0 0 0 $data[$line] =~ /^#/ or $data[$line] =~ /^\s*$/
511 0 0 0 $socks_proto == 4 || $socks_proto == 5 || $socks_proto == 0
759 0 0 0 not defined $type or $type != 1 and $type != 2
1285 0 0 0 not $self->read_data($self->sh, \$received, 2) or length $received < 2
1296 0 0 0 length $self->socks_param('user_id') == 0 || length $self->socks_param('user_pswd') == 0
1308 0 0 0 not $self->read_data($self->sh, \$received, 2) or length $received < 2
1333 0 0 0 not $self->read_data($self->sh, \$received, 8) or length $received < 8
1358 0 0 0 not $self->read_data($self->sh, \$received, 4) or length $received < 4
1369 0 0 0 not $self->read_data($self->sh, \$received, 1) or length $received < 1
1373 0 0 0 not $self->read_data($self->sh, \$received, $length) or length $received < $length
1380 0 0 0 not $self->read_data($self->sh, \$received, 4) or length $received < 4
1389 0 0 0 not $self->read_data($self->sh, \$received, 2) or length $received < 2
1413 0 0 0 not $self->read_data($self->sh, \$received, 0) or length $received < 5