| line |
true |
false |
branch |
|
26
|
0 |
11 |
if ($^O eq 'MSWin32') |
|
28
|
0 |
0 |
if ($@) |
|
30
|
0 |
0 |
if ($@) |
|
32
|
0 |
0 |
if ($@) |
|
36
|
11 |
0 |
ref $options eq 'HASH' ? : |
|
67
|
0 |
0 |
unless $self->{'_current_job'} |
|
74
|
0 |
0 |
unless $self->{'_wheel_log'} |
|
87
|
1 |
0 |
if $pause |
|
98
|
1 |
0 |
if wantarray |
|
111
|
11 |
0 |
if ($self->{'alias'}) { } |
|
117
|
11 |
0 |
unless $self->{'idle'} |
|
118
|
11 |
0 |
unless $self->{'timeout'} |
|
127
|
0 |
11 |
if $self->{'appdata'} |
|
140
|
0 |
11 |
unless $self->{'alias'} |
|
148
|
0 |
11 |
if $self->{'_shutdown'} |
|
150
|
11 |
0 |
if (ref $_[10] eq 'HASH') { } |
|
156
|
5 |
6 |
if $state eq 'submit' |
|
163
|
0 |
6 |
unless ($args->{'module'} or $state =~ /^(recent|check|indices|package|author|flush)$/i) |
|
168
|
0 |
11 |
unless ($args->{'event'}) |
|
173
|
0 |
11 |
if ($state =~ /^(package|author)$/ and not $args->{'search'}) |
|
180
|
1 |
10 |
if ($state eq 'recent') { } |
|
|
1 |
9 |
elsif ($state eq 'check') { } |
|
|
1 |
8 |
elsif ($state eq 'indices') { } |
|
|
1 |
7 |
elsif ($state eq 'author') { } |
|
|
1 |
6 |
elsif ($state eq 'package') { } |
|
|
1 |
5 |
elsif ($state eq 'flush') { } |
|
181
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
192
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
203
|
1 |
0 |
unless $args->{'prioritise'} |
|
204
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
215
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
226
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
237
|
1 |
0 |
unless $args->{'prioritise'} |
|
238
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
249
|
0 |
5 |
if ($^O eq 'MSWin32') { } |
|
264
|
1 |
10 |
if ($state eq 'unshift' or $state eq 'recent' or $args->{'prioritise'}) { } |
|
279
|
5 |
6 |
if $self->{'debug'} |
|
284
|
1 |
10 |
if ($job->{'cmd'} eq 'recent') { } |
|
|
2 |
8 |
elsif ($job->{'cmd'} =~ /^(package|author)$/) { } |
|
298
|
6 |
5 |
unless ($self->{'debug'}) |
|
304
|
0 |
11 |
if $run_time > $self->{'stats'}{'max_run'} |
|
305
|
11 |
0 |
if $self->{'stats'}{'min_run'} == 0 |
|
306
|
0 |
11 |
if $run_time < $self->{'stats'}{'min_run'} |
|
320
|
0 |
23 |
if $self->{'wheel'} |
|
321
|
0 |
23 |
if $self->{'_shutdown'} |
|
322
|
1 |
22 |
if $self->{'paused'} |
|
324
|
11 |
11 |
unless $job |
|
326
|
0 |
11 |
if ($job->{'appdata'}) |
|
338
|
0 |
11 |
if ($job->{'appdata'}) |
|
340
|
0 |
0 |
if $backup_env |
|
342
|
0 |
11 |
unless ($self->{'wheel'}) |
|
347
|
5 |
6 |
if (defined $job->{'debug'}) |
|
356
|
10 |
1 |
unless $job->{'cmd'} eq 'indices' |
|
376
|
0 |
0 |
if $self->{'debug'} |
|
383
|
0 |
0 |
if ($^O eq 'MSWin32' and not $self->{'_current_job'}{'GRP_PID'} and my($pid) = $input =~ /(\d+)/) |
|
385
|
0 |
0 |
if $self->{'debug'} |
|
388
|
7 |
1 |
unless $self->{'_current_job'}{'cmd'} eq 'recent' |
|
389
|
5 |
3 |
if $self->{'debug'} |
|
396
|
0 |
0 |
if ($now - $self->{'_wheel_time'} >= $self->{'idle'}) |
|
401
|
0 |
0 |
if ($now - $self->{'_current_job'}{'start_time'} >= $self->{'timeout'}) |
|
413
|
0 |
0 |
if $self->{'debug'} |
|
414
|
0 |
0 |
if ($^O eq 'MSWin32' and $self->{'wheel'}) { } |
|
416
|
0 |
0 |
unless $grp_pid |
|
417
|
0 |
0 |
unless Win32::Process::KillProcess($grp_pid, 0) |
|
421
|
0 |
0 |
if (not $self->{'no_grp_kill'}) { } |
|
|
0 |
0 |
elsif ($GOT_KILLFAM) { } |
|
422
|
0 |
0 |
if $self->{'wheel'} |
|
425
|
0 |
0 |
if $self->{'wheel'} |
|
428
|
0 |
0 |
if $self->{'wheel'} |
|
437
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
439
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
451
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
453
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
465
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
467
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
477
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
479
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
490
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
492
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
505
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
507
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
520
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
522
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
544
|
0 |
0 |
if ($proc->ppid == $kid) |