Module:NUMBEROFSECTIONS

local p = {}

local function count(raw, seclevs)
	local nos = 0
	local index = 1
	local lev = seclevs[index]
	while lev do
		for m in string.gmatch(raw, "\n" .. lev .. "[^=]") do
			nos = nos + 1
		end
		index = index + 1
		lev = seclevs[index]
	end
	return nos
end

function p.sections(frame)
	local levels = {}
	local level = frame.args[2]
	local title = mw.title.new(frame.args[1])
	for value in mw.text.gsplit(level, "") do
		if value ~= " " then
			levels[#levels + 1] = string.rep("=", tonumber(value))
		end
	end
	return count(title:getContent(), levels)
end

return p