R：超载原始的非生成功能

Question

我想找到最小的黑客，以便能够说模块:: obj当模块不是软件包，而是列表或环境。

经过一番挖掘，我看到了新用例的以下作用，但是打破了本机：

module = structure(list(f = \(x) x + 1), class = "module_cls")
`::` = function(mod, key) UseMethod("::")
`::.default` = function(mod, key) .Primitive("::")
`::.module_cls` = function(mod, key) mod[[as.character(substitute(key))]]

module::f(1)    # works!
base::sum(1, 1) # Error in base::sum : object 'base' not found

问题似乎是在default方法的定义中 或任何不module_cls的内容如何被划分为默认。