Module:Br separated entries

local p = {}

local function _main( args )
    local t = {}
    local sep = '<br />'
    for i, v in ipairs( args ) do
        if mw.ustring.match( v, '%S' ) then
            table.insert( t, v )
        elseif #t > 0 then
            t[ #t ] = t [ #t ] .. v
        else
            t[ 1 ] = v
        end
    end
    if t[ 2 ] and not mw.ustring.match( t[ 1 ], '%S' ) then
        t[ 2 ] = t[ 1 ] .. t[ 2 ]
        table.remove( t, 1 )
    end
    return table.concat( t, sep )
end

function p.main( frame )
    local origArgs
    if frame == mw.getCurrentFrame() then
        -- We're being called via #invoke. If the invoking template passed any arguments,
        -- use them. Otherwise, use the arguments that were passed into the template.
        origArgs = frame:getParent().args
        for k, v in pairs( frame.args ) do
            origArgs = frame.args
            break
        end
    else        
        -- We're being called from another module or from the debug console, so assume
        -- the arguments are passed in directly.
        origArgs = frame
    end
    
    -- Use integer args only, and allow for explicit positional arguments
    -- that are specified out of order, e.g. {{br separated entries|3=entry3}}.
    -- After processing, the args can be accessed accurately from ipairs.
    local args = {}
    for k, v in pairs( origArgs ) do
        if type( k ) == 'number' and k >= 1 and math.floor( k ) == k then
            table.insert( args, k )
        end
    end
    table.sort( args )
    for i,v in ipairs( args ) do
        args[ i ] = origArgs[ v ]
    end
    
    return _main( args )
end

return p