Branch Coverage

lib/Schedule/SGELK.pm
Criterion Covered Total %
branch 29 124 23.3


line true false branch
77 0 1 unless @jobsToClean
137 3 4 unless defined $self->settings($key)
139 0 1 unless ($self->get("workingdir"))
148 3 0 if $?
152 3 0 unless $exec
156 0 1 if ($ENV{'SGE_ROOT'} and -e $ENV{'SGE_ROOT'}) { }
166 1 0 if $self->get("noqsub")
187 0 0 unless defined $msg
190 0 0 if defined $exit_code
209 18 19 if (defined $key and defined $value) { }
17 2 elsif (defined $key) { }
214 0 20 if wantarray
257 2 0 unless defined $tmpSettings
266 0 2 if $cmd =~ /^\s*$/
275 0 2 $0 eq '-e' ? :
280 0 2 unless open SCRIPT, ">", $script
292 0 2 if (my $opts = $settings{'qsubxopts'})
319 0 2 if $?
325 2 0 unless ($settings{'scheduler'})
327 0 2 if $has_threads
328 0 2 if $has_threads
329 2 0 unless $self->settings("keep")
332 0 2 if wantarray
338 0 0 if ($out =~ /Your job (\d+)/) { }
341 0 0 if $settings{'verbose'}
349 0 0 unless $self->settings("waitForEachJobToStart")
351 0 0 if time - $started > $settings{'timeout'}
352 0 0 if $self->jobStatus($jobid) eq "Eqw"
358 0 0 unless $self->settings("keep")
361 0 0 if wantarray
388 0 0 if ref $cmd eq ""
416 0 0 if ($status eq 'qw') { }
0 0 elsif ($status eq 'Eqw') { }
0 0 elsif ($status =~ /[rt]/) { }
427 0 0 unless -e $job->{'submitted'}
429 0 0 if -e $job->{'finished'}
430 0 0 unless keys %$job
432 0 0 if (-e $job->{'died'})
439 0 0 if -e $job->{'running'}
463 0 0 if ($F[0] eq $jobid)
489 0 0 unless open QSTAT, "qstat|"
516 0 1 if ($self->get('scheduler')) { }
0 1 elsif ($has_threads) { }
542 0 0 unless $j->{'thread'}
543 0 0 if $j->{'thread'} and not $j->{'thread'}->is_joinable
552 0 0 if $j->{'thread'}
557 0 0 if (@$job)
588 3 0 unless $qsub
591 0 0 if defined $mustfinish
592 0 0 if ($settings{'verbose'})
593 0 0 if @$job >= $settings{'numnodes'}
594 0 0 if $numSlots >= $settings{'maxslots'}
600 0 0 if ($state == 1) { }
0 0 elsif ($state == -1) { }
601 0 0 if $settings{'verbose'}
607 0 0 unless $settings{'warn_on_error'}
618 0 0 if not $settings{'mustfinish'} and @$job < $settings{'numnodes'} and $numSlots < $settings{'maxslots'}
654 0 0 unless -d "./.SGELK"
655 0 0 if $?
664 0 2 if ($use_threads) { }
669 0 2 if $?
698 0 0 unless defined $tmpSettings