| line |
true |
false |
branch |
|
27
|
0 |
11 |
if ($^O eq 'MSWin32') |
|
29
|
0 |
0 |
if ($@) |
|
31
|
0 |
0 |
if ($@) |
|
33
|
0 |
0 |
if ($@) |
|
37
|
11 |
0 |
ref $options eq 'HASH' ? : |
|
68
|
0 |
0 |
unless $$self{'_current_job'} |
|
75
|
0 |
0 |
unless $$self{'_wheel_log'} |
|
88
|
1 |
0 |
if $pause |
|
99
|
1 |
0 |
if wantarray |
|
112
|
11 |
0 |
if ($$self{'alias'}) { } |
|
118
|
11 |
0 |
unless $$self{'idle'} |
|
119
|
11 |
0 |
unless $$self{'timeout'} |
|
128
|
0 |
11 |
if $$self{'appdata'} |
|
141
|
0 |
11 |
unless $$self{'alias'} |
|
149
|
0 |
11 |
if $$self{'_shutdown'} |
|
151
|
11 |
0 |
if (ref $_[10] eq 'HASH') { } |
|
157
|
5 |
6 |
if $state eq 'submit' |
|
164
|
0 |
6 |
unless ($$args{'module'} or $state =~ /^(recent|check|indices|package|author|flush)$/i) |
|
169
|
0 |
11 |
unless ($$args{'event'}) |
|
174
|
0 |
11 |
if ($state =~ /^(package|author)$/ and not $$args{'search'}) |
|
181
|
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') { } |
|
182
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
193
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
204
|
1 |
0 |
unless $$args{'prioritise'} |
|
205
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
216
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
227
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
238
|
1 |
0 |
unless $$args{'prioritise'} |
|
239
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
250
|
0 |
5 |
if ($^O eq 'MSWin32') { } |
|
265
|
1 |
10 |
if ($state eq 'unshift' or $state eq 'recent' or $$args{'prioritise'}) { } |
|
280
|
5 |
6 |
if $$self{'debug'} |
|
285
|
1 |
10 |
if ($$job{'cmd'} eq 'recent') { } |
|
|
2 |
8 |
elsif ($$job{'cmd'} =~ /^(package|author)$/) { } |
|
299
|
6 |
5 |
unless ($$self{'debug'}) |
|
305
|
0 |
11 |
if $run_time > $$self{'stats'}{'max_run'} |
|
306
|
11 |
0 |
if $$self{'stats'}{'min_run'} == 0 |
|
307
|
0 |
11 |
if $run_time < $$self{'stats'}{'min_run'} |
|
321
|
0 |
23 |
if $$self{'wheel'} |
|
322
|
0 |
23 |
if $$self{'_shutdown'} |
|
323
|
1 |
22 |
if $$self{'paused'} |
|
325
|
11 |
11 |
unless $job |
|
327
|
0 |
11 |
if ($$job{'appdata'}) |
|
339
|
0 |
11 |
if ($$job{'appdata'}) |
|
341
|
0 |
0 |
if $backup_env |
|
343
|
0 |
11 |
unless ($$self{'wheel'}) |
|
348
|
5 |
6 |
if (defined $$job{'debug'}) |
|
357
|
10 |
1 |
unless $$job{'cmd'} eq 'indices' |
|
377
|
0 |
0 |
if $$self{'debug'} |
|
384
|
0 |
0 |
if ($^O eq 'MSWin32' and not $$self{'_current_job'}{'GRP_PID'} and my($pid) = $input =~ /(\d+)/) |
|
386
|
0 |
0 |
if $$self{'debug'} |
|
389
|
9 |
1 |
unless $$self{'_current_job'}{'cmd'} eq 'recent' |
|
390
|
6 |
4 |
if $$self{'debug'} |
|
397
|
0 |
0 |
if ($now - $$self{'_wheel_time'} >= $$self{'idle'}) |
|
402
|
0 |
0 |
if ($now - $$self{'_current_job'}{'start_time'} >= $$self{'timeout'}) |
|
414
|
0 |
0 |
if $$self{'debug'} |
|
415
|
0 |
0 |
if ($^O eq 'MSWin32' and $$self{'wheel'}) { } |
|
417
|
0 |
0 |
unless $grp_pid |
|
418
|
0 |
0 |
unless Win32::Process::KillProcess($grp_pid, 0) |
|
422
|
0 |
0 |
if (not $$self{'no_grp_kill'}) { } |
|
|
0 |
0 |
elsif ($GOT_KILLFAM) { } |
|
423
|
0 |
0 |
if $$self{'wheel'} |
|
426
|
0 |
0 |
if $$self{'wheel'} |
|
429
|
0 |
0 |
if $$self{'wheel'} |
|
438
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
440
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
452
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
454
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
466
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
468
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
478
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
480
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
491
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
493
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
506
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
508
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
521
|
0 |
0 |
unless my $job = 'Win32::Job'->new |
|
523
|
0 |
0 |
unless my $pid = $job->spawn($perl, $cmdline) |
|
545
|
0 |
0 |
if ($proc->ppid == $kid) |