Select Code to Download

sub new {
    my $class = shift;
...
    bless $self, $class;
    return $self;
}

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

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