sub new {
    my $class = shift;
    my $self = [@_];
    bless $self, $class;
    return $self;
}

sub getList {
    my $self = shift;

    if (wantarray) {
        return @$self;
    else {
        return [@$self];
    }
}

##</code><code>##

sub new {
    my $class = shift;

    my $self = {};
    bless $self, $class;

    $self->{LIST} = [@_];

    return $self;
}

sub getList {
    my $self = shift;

    if (wantarray) {
        return @{$self->{LIST}};
    else {
        return [@$self->{LIST}];
    }
}