parent $foundation
object $verb_cache

var $verb_cache templates #[["l?ook at %this", [$described]], ["l?ook %this", [$described]], ["take|get %this", [$thing]], ["drop %this", [$thing]], ["erase * on|from %this", [$note]], ["erase %this", [$note]], ["read|nread %this", [$note]], ["write on %this", [$note]], ["write at * on %this", [$note]], ["write * on %this", [$note]], ["copy from %this to *", [$note]], ["@public on %this is *", [$public]]]
var $root child_index 0
var $root owners [$verb_cache]
var $root fertile 0
var $root inited 1
var $root owned [$verb_cache]
var $root manager $verb_cache
var $root writable [$verb_cache]
var $root readable ['parameters, 'methods, 'code]
var $root dbref 'verb_cache

method add_template
    arg template;
    
    if (caller() != $has_verbs)
        throw(~perm, "Caller is not $has_verbs.");
    templates = templates.add_elem(template, sender());
.

method del_template
    arg template;
    
    if (caller() != $has_verbs)
        throw(~perm, "Caller is not $has_verbs.");
    templates = templates.del_elem(template, sender());
.

method templates
    return dict_keys(templates);
.