my %constructors = ( "one" => sub {One->new(@_)},
                     "two" => sub {Two->new(@_)} );