Help for this page

Select Code to Download

Select or download this

OUTER: for (1) {
    for my $job (@jobs) {
        my ($status, $task) = $job->{job}->get_task();
...
    }
}
return('wait')

Select or download this

NEXT:
my $job = shift @jobs;
my ($status, $task) = $job->{job}->get_task;
...
}
my $newtask = Package->new(...);
return ($status, $newtask);