sub new {
   my ($class,%args) = @_;
   my $package = ref($class) || $class || confess "classless constructor";