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>
}