sub new {
  my($class,$initializer) = @_;
  my $self = {};
  bless $self,ref $class || $class || $DefaultClass;
  ...