croak 'Forced prototype hash reference must contain exactly one key/value pair' unless keys %$name == 1;
($name, $proto) = %$name;
croak 'Forced prototype hash reference must contain exactly one key/value pair' unless keys %$name == 1;
($name, $proto) = %$name;