Method code for $gender.gender_name()

[Turn off line numbering]

---

  1: arg @caps;
  2: 
  3: [(caps ?= 'null)] = caps;
  4: switch (caps) {
  5:     case 'caps:
  6:         return cgender_name;
  7:     default:
  8:         return gender_name;
  9: }

---

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