for my $method (qw/ foo bar /) {
    no strict 'refs';
    *$method = sub {
      use strict 'refs';
      my $self = shift;
      $self->{"_$method"} = shift if @_;
      return $self->{"_$method"};
    }
  }