sub new { croak "new takes class" if ref $_[0]; bless {}, $_[0]; }