sub new {
  my $class = shift;
  my $args = (ref $_[0] eq 'HASH') ? shift : { @_ };
  # ...
}