line |
true |
false |
branch |
87
|
1 |
2 |
if (reftype $p and reftype $p eq 'HASH') { } |
|
2 |
0 |
elsif (not reftype $p) { } |
101
|
0 |
0 |
if (reftype $p and reftype $p eq 'HASH') { } |
|
0 |
0 |
elsif (not reftype $p) { } |
151
|
0 |
0 |
if ($self->_dispatched) { } |
152
|
0 |
0 |
if (@{$allowed_jobs;}) { } |
176
|
0 |
0 |
if ($$heap{'job'}{$client}) |
180
|
0 |
0 |
if ($input =~ /^quit$/i) |
186
|
0 |
0 |
if ($input =~ /^usage$/i) |
193
|
0 |
0 |
if ($self->_dispatched) { } |
200
|
0 |
0 |
unless (defined $program) |
206
|
0 |
0 |
if first sub {
$_ eq $input;
}
, @{$self->_interactive;} |
208
|
0 |
0 |
if $self->log_commands |
211
|
0 |
0 |
$interactive ? : |
249
|
0 |
0 |
if ($exit != 0) |
276
|
0 |
0 |
if ($self->max_connections > 0) |
277
|
0 |
0 |
if ($$self{'_clients'} >= $self->max_connections) |
286
|
0 |
0 |
if (@{$allow_hosts;} or $self->_dispatched) |
287
|
0 |
0 |
unless (first sub {
$remote_ip eq $_;
}
, @{$allow_hosts;}, keys %{$self->job_table;}) |
316
|
1 |
0 |
if ($self->logfile) |
317
|
0 |
1 |
unless open STDOUT, '>>', $self->logfile |
318
|
0 |
1 |
unless open STDERR, '>&STDOUT' |
328
|
0 |
1 |
unless $output |
340
|
0 |
5 |
if (reftype $_ and reftype $_ eq 'HASH') { } |
|
5 |
0 |
elsif (not reftype $_) { } |
346
|
4 |
1 |
if (exists ${$self->jobs;}{$_}) { } |
357
|
0 |
1 |
unless $comm_jobs |
380
|
0 |
0 |
if (my $c = first(sub {
$_ =~ /^usage|quit$/i;
}
, keys %{$self->jobs;})) |