sub set_stuff {
	my $self = shift;
	
	if (@_){	
		$self->{stuff1} = shift;	#3 lines for one task
		$self->{stuff2} = shift;
		$self->{stuff3} = shift;
		($self->{stuff1},$self->{stuff2},$self->{stuff3}) = @_; #1 line, same result regardless of stuff presence
	}

	return 1;	
}