| line |
true |
false |
branch |
|
19
|
0 |
5 |
unless defined $opts{'bindport'} |
|
20
|
4 |
1 |
unless $opts{'multiple'} |
|
21
|
5 |
0 |
unless $opts{'timeout'} |
|
22
|
4 |
1 |
unless $opts{'random'} |
|
51
|
5 |
0 |
if $$self{'alias'} |
|
52
|
0 |
5 |
unless $$self{'alias'} |
|
54
|
5 |
0 |
$$self{'bindaddr'} ? : |
|
67
|
0 |
5 |
unless $$self{'alias'} |
|
107
|
5 |
0 |
if $$self{'sessions'}{$sender} == 1 and $sender ne $session |
|
116
|
0 |
4 |
if $thing and $sender ne $session |
|
128
|
1 |
4 |
$$self{'multiple'} ? : |
|
156
|
4 |
1 |
if ($input =~ /^\s*([0-9]+)\s*,\s*([0-9]+)\s*$/ and _valid_ports($1, $2)) { } |
|
167
|
1 |
4 |
if $$self{'multiple'} |
|
199
|
1 |
2 |
if ($$self{'default'}) |
|
203
|
1 |
1 |
if ($$self{'random'}) |
|
213
|
3 |
0 |
if defined $$self{'clients'}{$session_id}{'readwrite'} |
|
214
|
0 |
3 |
if $$self{'multiple'} |
|
224
|
0 |
1 |
unless defined $opsys |
|
228
|
1 |
0 |
if $$self{'clients'}{$session_id}{'readwrite'} |
|
229
|
0 |
1 |
if $$self{'multiple'} |
|
239
|
0 |
0 |
unless (grep {$_ eq $error_type;} 'INVALID-PORT', 'NO-USER', 'HIDDEN-USER', 'UNKNOWN-ERROR') |
|
245
|
0 |
0 |
if $$self{'clients'}{$session_id}{'readwrite'} |
|
246
|
0 |
0 |
if $$self{'multiple'} |
|
254
|
4 |
0 |
if defined $port1 and defined $port2 and ($port1 >= 1 and $port1 <= 65535) and ($port2 >= 1 and $port2 <= 65535) |