parent $named object $gendered var $root child_index 0 var $root owners [$gendered] var $root owned [$gendered] var $root fertile 0 var $has_verbs verbs 0 var $root inited 1 var $gendered gender 0 var $described prose #[] var $root manager $gendered var $root writable [$gendered] var $root readable ['parameters, 'methods, 'code] var $root dbref 'gendered var $named name ['uniq, "The Generic Gendered Object"] var $named name_aliases [] method gender_context return gender.pronoun('po); . method init_gendered .perms($root, caller()); gender = $gender_neuter; . method set_gender arg gendr; .perms(sender(), 'manager); if ((type(gendr) != 'dbref) && (!(gendr in ($gender.children())))) throw(~invgender, ($data.unparse(gendr)) + " is not a valid gender object type."); gender = gendr; . method gender return gender; .