sub new {
    my $class = shift;
    my $self = {
        _description => shift,
        _priority => shift,
        _type  => shift,
        _tasks => []
    };
    bless $self, $class;
    return $self;
}

##</code><code>##

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

##</code><code>##

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