Branch Coverage

blib/lib/Proc/JobQueue.pm
Criterion Covered Total %
branch 76 132 57.5


line true false branch
34 2 2 if ($hr = $$queue{'status'}{$host}) { }
53 448 0 if ($$hr{'jobs_per_host'} and $$hr{'jobs_per_host'} > keys %{$$hr{'running'};}) { }
0 0 elsif (not keys %{$$hr{'running'};}) { }
87 0 0 if defined $new
94 0 126 unless ref $job
95 0 126 unless $job->isa('Proc::JobQueue::Job')
97 70 56 unless $job->jobnum
101 0 126 if $debug > 2
103 0 126 if ($host) { }
104 0 0 unless $$queue{'status'}{$host}
124 170 134 if ($$job_queue{'startmore_in_progress'})
125 0 170 if $debug
137 0 134 if $debug
143 94 77 if ($dependency_graph)
147 0 68 if $debug
148 7 61 if ($task->can('run_dependency_task')) { }
61 0 elsif ($task->isa('Proc::JobQueue::Job')) { }
149 7 0 if $task->run_dependency_task($dependency_graph)
161 37 134 if $$job_queue{'startmore_in_progress'} > 1
164 0 134 if ($@)
170 77 57 unless $dependency_graph
172 2 55 if ($jq_done and $dependency_graph->alldone) { }
0 110 elsif ($jq_done and not $stuff_started) { }
177 0 0 if (keys %{$$dependency_graph{'stuck'};}) { }
195 0 171 if $$queue{'hold_all'}
196 0 171 if $debug > 8
197 0 171 unless keys %{$$queue{'status'};}
204 0 297 if $debug > 3
208 0 297 if $debug > 4
210 0 297 if keys %{$$hr{'queue'};} > $$queue{'host_overload'}
213 297 0 if $$hr{'jobs_per_host'} and not $$queue{'host_is_over'}
216 414 180 unless keys %$q
218 0 30 unless $$q{$a}{'priority'} <=> $$q{$b}{'priority'}
219 0 207 if $debug > 5
221 81 126 unless ($job->runnable)
222 0 81 if $debug > 5
235 171 126 unless $redo
238 107 64 if $stuff
256 0 126 if $debug > 1
270 0 192 if $debug > 7
274 607 25 if ($job) { }
275 0 607 if $debug > 8
276 120 487 if defined $job->checkjob($queue)
279 0 25 if $debug
293 60 60 if ($$job{'dependency_graph'})
294 0 60 if ($exit_code[0]) { }
311 0 126 unless defined $do_startmore
316 0 126 if $debug > 5
318 0 126 unless my $hr = $$job_queue{'status'}{$host}
319 0 126 unless delete $$hr{'running'}{$jobnum}
323 0 126 if $do_startmore
329 0 64 if $debug and not $skip_status
330 0 64 if keys %{$$queue{'queue'};}
333 0 64 unless $$queue{'ready_hosts'}{$host}
334 0 64 if keys %{$$hr{'queue'};}
335 59 5 if keys %{$$hr{'running'};}
336 0 5 unless $$hr{'jobs_per_host'} > 0
346 0 0 if time < $last_dump + $status_frequency
350 0 0 if $$queue{'host_is_over'}
356 0 0 $$queue{'ready_hosts'}{$host} ? :
367 0 0 if $dg
375 160 2 if $canonicalizer
389 200 2 if $my_hostname
402 0 7 if (@_) { }
1 6 elsif (not $$queue{'dependency_graph'}) { }
403 0 0 if $$queue{'dependency_graph'}