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