sub new {
  my $class = shift;
  bless {
    _att1 => $_[0],
    ...
    _attN => undef,
  }, $class;
}