foreach my $attrib (@_) {
  no strict 'refs';
  *$attrib = sub {
    my $self = shift;
    $self->{$attrib} = shift if @_;
    return $self->{$attrib};
  } unless defined &$attrib;
}