I need to build a class with two arrays as data members of 6 other members, as follows:
sub new {
my $class = shift;
my $self = {
_DataMember0 => shift,
_DataMember1 => shift,
_Array0 => shift,
_Array1 => shift,
};
bless $self, $class;
}
sub get_DataMember0 {
my ($self) = @_;
return $self->{_TestCaseDataFiles};
}
sub get__Array0 {
my ($self) = @_;
return <QUESTION>
}
Now, what should I use in place of <QUESTION> ?
Another thing, how should I send a value for Array0? by reference of by value?
Thanks,