| line |
true |
false |
branch |
|
18
|
0 |
5 |
unless defined $opts{'bindport'} |
|
19
|
4 |
1 |
unless $opts{'multiple'} |
|
20
|
5 |
0 |
unless $opts{'timeout'} |
|
21
|
4 |
1 |
unless $opts{'random'} |
|
50
|
5 |
0 |
if $self->{'alias'} |
|
51
|
0 |
5 |
unless $self->{'alias'} |
|
55
|
5 |
0 |
$self->{'bindaddr'} ? : |
|
66
|
0 |
5 |
unless $self->{'alias'} |
|
107
|
5 |
0 |
if $self->{'sessions'}{$sender} == 1 and $sender ne $session |
|
115
|
0 |
4 |
if $thing and $sender ne $session |
|
133
|
1 |
4 |
$self->{'multiple'} ? : |
|
155
|
4 |
1 |
if ($input =~ /^\s*([0-9]+)\s*,\s*([0-9]+)\s*$/ and _valid_ports($1, $2)) { } |
|
166
|
1 |
4 |
if $self->{'multiple'} |
|
198
|
1 |
2 |
if ($self->{'default'}) |
|
202
|
1 |
1 |
if ($self->{'random'}) |
|
212
|
3 |
0 |
if defined $self->{'clients'}{$session_id}{'readwrite'} |
|
213
|
0 |
3 |
if $self->{'multiple'} |
|
223
|
0 |
1 |
unless defined $opsys |
|
227
|
1 |
0 |
if $self->{'clients'}{$session_id}{'readwrite'} |
|
228
|
0 |
1 |
if $self->{'multiple'} |
|
238
|
0 |
0 |
unless (grep {$_ eq $error_type;} 'INVALID-PORT', 'NO-USER', 'HIDDEN-USER', 'UNKNOWN-ERROR') |
|
244
|
0 |
0 |
if $self->{'clients'}{$session_id}{'readwrite'} |
|
245
|
0 |
0 |
if $self->{'multiple'} |
|
253
|
4 |
0 |
if defined $port1 and defined $port2 and ($port1 >= 1 and $port1 <= 65535) and ($port2 >= 1 and $port2 <= 65535) |