sub addTask {
    my( $self, $task ) = @_;
    my @taskArray = @{ $self->{_tasks} };
    push @taskArray, $task;
    @{ $self->{_tasks} } = @taskArray;
    return $task;
}