Lua中的“对象”生成函数

Question

我用这个在Lua中生成“class”。

function Class(...)
  local cls = {};
  local bases = {arg};
  for i, base in ipairs(bases) do
    for k, v in pairs(base) do
      cls[k] = v
    end
  end
  cls.__index = cls;
  cls._is_a =  {[cls] = true}
  for i, base in pairs(bases) do
    for c in pairs(base._is_a) do
      cls._is_a[c] = true
    end
    cls._is_a[base] = true
  end
  function cls.IsType(obj,cmptype)
    if cmptype then
      return obj._is_a[cmptype] or false;
    else
      if type(obj) == 'table' then
        return cls._is_a[obj.__index] or false;
      else
        return false;
      end
    end
  end
  cls._init = function() end;
  setmetatable(cls, {
    __call = function (c, ...)
      local instance = setmetatable({}, c)

      instance._init(instance, ...);
      return instance
    end
  })
  return cls
end

在zeroBane Studio中，此代码启动，我可以执行类似

的操作

Test1 = Class();
function Test1:_init()
end

Test2 = Class(Test1);

function Test2:_init()
  Test1._init(self);
end

但是当我尝试在Starbound中做类似的事情时，它会抱怨Test1._init（self）;消息“尝试索引函数值”。我敢打赌它与metatables有关，但我不够自己解决它。 有没有办法解决这个问题，这样我就可以使用'。'来调用函数？