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;
.