sub foo 
{
	my $self = shift;
	$self->{foo} = shift if @_;
	return $self->{foo};
}