my $closure = sub { my $field = shift; @_ and $self->{$field} = shift; $self->{$field}; };