sub new {
   my $class = shift;
   my $self = register( {}, $class );  # register does the bless, too