util.session: What is the identity of a session?

[prosody.git] / util / events.lua

diff --git a/util/events.lua b/util/events.lua
index 79de1151741a3e6f2dd0220e9ab4a0b1ebceafc9..825ffb19b110f7e4d7e517d52fd34fbe6aaeb001 100644 (file)
--- a/util/events.lua
+++ b/util/events.lua
@@ -9,13 +9,14 @@
 
 local pairs = pairs;
 local t_insert = table.insert;
+local t_remove = table.remove;
 local t_sort = table.sort;
 local setmetatable = setmetatable;
 local next = next;
 
-module "events"
+local _ENV = nil;
 
-function new()
+local function new()
        local handlers = {};
        local global_wrappers;
        local wrappers = {};
@@ -52,6 +53,9 @@ function new()
                        end
                end
        end;
+       local function get_handlers(event)
+               return handlers[event];
+       end;
        local function add_handlers(handlers)
                for event, handler in pairs(handlers) do
                        add_handler(event, handler);
@@ -118,7 +122,7 @@ function new()
                if not w then return; end
                for i = #w, 1 do
                        if w[i] == wrapper then
-                               table.remove(w, i);
+                               t_remove(w, i);
                        end
                end
                if #w == 0 then
@@ -134,6 +138,7 @@ function new()
                remove_handler = remove_handler;
                add_handlers = add_handlers;
                remove_handlers = remove_handlers;
+               get_handlers = get_handlers;
                wrappers = {
                        add_handler = add_wrapper;
                        remove_handler = remove_wrapper;
@@ -146,4 +151,6 @@ function new()
        };
 end
 
-return _M;
+return {
+       new = new;
+};