Select Code to Download

package Job;

...
}

1;

sub CheckTasks {
    my $self = shift;
...
        my $taskInfo = $task->fetch (id => $readyTasks[0][0]);
        my $job = Job->new (dbh => $self->{db});
        my $jobInfo = $job->fetch (id => $taskInfo->{jobid});