# Class->new();
# Class->new( k=>v, ... );
sub new {
   my ($class, %self) = @_;
   ...
}