Add a file to hold WebGUI types for Moose. Note, reads from the db come back as undef, so it has to be explicitly coerced.

lib/WebGUI/Types.pm

@@ -0,0 +1,20 @@
+package WebGUI::Types;
+
+use Moose;
+use Moose::Util::TypeConstraints;
+
+subtype 'WebGUI::Type::JSONArray'
+    => as 'ArrayRef'
+;
+
+coerce 'WebGUI::Type::JSONArray'
+    => from Str
+    => via  { my $struct = eval { JSON::from_json($_); }; $struct ||= []; return $struct; },
+;
+
+coerce 'WebGUI::Type::JSONArray'
+    => from Undef
+    => via  { return []; },
+;
+
+1;