---

Class Relations

• class: ::xo::role::Role

::xo::role::Role create ::xo::role::registered_user

Methods (to be applied on the object)

• get_members (scripted)

  # return just the users with an @ sign, to avoid the users created by automated testing
  set members [::xo::dc list_of_lists get_users [subst {
    select distinct username, user_id
    from registered_users
    where username like '%@%'
    and   [:except_clause -lhs user_id $except]
  }]]
  return $members

• is_member (scripted)

  return [expr {$user_id != 0}]

---