Perl module (dependency) for mtx2runall.pl

EulerSet.pm

#!/usr/bin/perl 

package EulerSet;

sub new {
	my $class = shift;
	my $self = {
		_subsetRef => shift,
		_indicator => shift,
		_length => shift,
		_count => shift,
	};
	bless $self, $class;
	return $self;
}

sub setSubsetRef {
	my ($self, $subsetRef) = @_;
	$self->{_subsetRef} = $subsetRef if defined($subsetRef);
	return $self->{_subsetRef};
}

sub getSubsetRef {
	my ($self) = @_;
	return $self->{_subsetRef};
}

sub setIndicator {
	my ($self, $indicator) = @_;
	$self->{_indicator} = $indicator if defined($indicator);
	return $self->{_indicator};
}

sub getIndicator {
	my ($self) = @_;
	return $self->{_indicator};
}

sub setLength {
	my ($self, $length) = @_;
	$self->{_length} = $length if defined($length);
	return $self->{_length};
}

sub getLength {
	my ($self) = @_;
	return $self->{_length};
}

sub setCount {
	my ($self, $count) = @_;
	$self->{_count} = $count if defined($count);
	return $self->{_count};
}

sub getCount {
	my ($self) = @_;
	return $self->{_count};
}
1;