add listen(...):sock() method

access underlying luasocket

Author: lipp

spec/server_ev_spec.lua

@@ -31,6 +31,19 @@ describe(
         s:close()
       end)
 
+    it(
+      's:sock() provides access to the listening socket',
+      function()
+        local s = server.ev.listen
+        {
+          default = function() end,
+          port = port
+        }
+        assert.is_truthy(tostring(s:sock()):match('tcp'))
+        s:close()
+      end)
+    
+    
     it(
       'call listen with protocol handlers',
       function()

src/websocket/server_ev.lua

@@ -166,6 +166,11 @@ local listen = function(opts)
     error(err)
   end
   listener:settimeout(0)
+  
+  self.sock = function()
+    return listener
+  end
+  
   local listen_io = ev.IO.new(
     function()
       local client_sock = listener:accept()