sub new {
  # ...
  for (@valid_keys) {
    if (exists $arg{$_}) { $self->{$_} = $arg{$_} }
  }
}