moonscript/tests/outputs/export.lua

do
  a, b, c = 223, 343
  cool = "dad"
end
do
  do
    local _parent_0 = nil
    local _base_0 = {
      umm = "cool"
    }
    _base_0.__index = _base_0
    if _parent_0 then
      setmetatable(_base_0, _parent_0.__base)
    end
    local _class_0 = setmetatable({
      __init = function(self, ...)
        if _parent_0 then
          return _parent_0.__init(self, ...)
        end
      end,
      __base = _base_0,
      __name = "Something",
      __parent = _parent_0
    }, {
      __index = function(cls, name)
        local val = rawget(_base_0, name)
        if val == nil and _parent_0 then
          return _parent_0[name]
        else
          return val
        end
      end,
      __call = function(cls, ...)
        local _self_0 = setmetatable({}, _base_0)
        cls.__init(_self_0, ...)
        return _self_0
      end
    })
    _base_0.__class = _class_0
    if _parent_0 and _parent_0.__inherited then
      _parent_0.__inherited(_parent_0, _class_0)
    end
    Something = _class_0
  end
end
do
  local d
  a, b, c, d = "hello"
end
do
  local What
  if this then
    What = 232
  else
    What = 4343
  end
  local another = 3434
  Another = 7890
  if inner then
    local Yeah = "10000"
  end
  if this then
    What = 232
  else
    What = 4343
  end
end
do
  if this then
    What = 232
  else
    What = 4343
  end
  x, y, z = 1, 2, 3
  y = function()
    local hallo = 3434
  end
  do
    local _with_0 = tmp
    local j = 2000
  end
end
do
  x = 3434
  if y then
    x = 10
  end
end
do
  if y then
    local x = 10
  end
  x = 3434
end
do
  do
    k = 1212
    do
      local h = 100
    end
    y = function()
      local h = 100
      k = 100
    end
  end
  local h = 100
end