| 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;})) |