add a sensible default for match_type and make type not required
Justin Hunter [Sat, 3 Oct 2009 04:52:39 +0000 (21:52 -0700)]
lib/SQL/Translator/Object/Constraint.pm

index ad6fd6d..7ed4c71 100644 (file)
@@ -33,7 +33,6 @@ class SQL::Translator::Object::Constraint extends SQL::Translator::Object {
     has 'type' => (
         is => 'rw',
         isa => Str,
-        required => 1
     );
 
     has 'deferrable' => (
@@ -63,10 +62,10 @@ class SQL::Translator::Object::Constraint extends SQL::Translator::Object {
 
     has 'match_type' => (
         isa => Str,
-        is => 'rw'
+        is => 'rw',
+        lazy => 1,
+        default => ''
     );
 
     around add_column(Column $column) { $self->$orig($column->name, $column) }
-
-    method reference_fields { $self->reference_columns }
 }