Method code for $gender.gender_name()

[Turn on line numbering]

---

arg @caps;

[(caps ?= 'null)] = caps;
switch (caps) {
    case 'caps:
        return cgender_name;
    default:
        return gender_name;
}

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit