make these attributes required
Justin Hunter [Tue, 1 Dec 2009 22:47:49 +0000 (14:47 -0800)]
lib/SQL/Translator/Object/Constraint.pm

index 5f99592..9ce421c 100644 (file)
@@ -36,6 +36,7 @@ class SQL::Translator::Object::Constraint extends SQL::Translator::Object {
         is => 'rw',
         isa => Str,
         predicate => 'has_type',
+        required => 1,
     );
 
     has 'deferrable' => (
@@ -61,6 +62,7 @@ class SQL::Translator::Object::Constraint extends SQL::Translator::Object {
             reference_columns => 'elements',
         },
         default => sub { [] },
+        required => 1,
     );
 
     has 'match_type' => (