1 files changed, 12 insertions, 1 deletions
diff --git a/acf2/model/net.lua b/acf2/model/net.lua
index 92d0738..d965abc 100644
--- a/acf2/model/net.lua
+++ b/acf2/model/net.lua
@@ -1,5 +1,5 @@
 --[[
-Copyright (c) 2012-2013 Kaarle Ritvanen
+Copyright (c) 2012-2014 Kaarle Ritvanen
 See LICENSE file for license details
 --]]
 
@@ -189,4 +189,15 @@ function M.Port:validate(context, value)
 end
 
 
+M.EmailAddress = class(String)
+
+function M.EmailAddress:init(params)
+   super(self, M.EmailAddress):init(
+      update(
+	 params, {pattern='[A-Za-z0-9%.%+%-]+@[A-Za-z0-9%.%+%-]+%.%w%w+'}
+      )
+   )
+end
+
+
 return M