sub table {
	my $class = shift;
	$table = shift if @_;
	return $table;
}

sub primary {
	my $class = shift;
	$primary = shift if @_;
	return $primary;
}