sub foo {
	my $self = shift;
	$self->{foo};
};

sub :updater foo {
	my ($self, $val) = @_;
	$self->{foo} = $val;
};

print "foo is ", $self->foo, "\n";
$self->foo = 42;