sub set_timeout {
	my $self = shift;

	my $to = $self->{timeout};

	if (@_){
		$self->{timeout} = shift;
		
	}

	return $to;	
}

##</code><code>##

sub set_timeout {
    my $self = $_[0];

    my $to = $self->{timeout};

    if ($_[1]){
        $self->{timeout} = $_[1];
        
    }

    return $to;    
}

##</code><code>##

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