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