add a has_columns method

diff --git a/lib/SQL/Translator/Object/Constraint.pm b/lib/SQL/Translator/Object/Constraint.pm
index 91dbff0..81da9e7 100644 (file)
--- a/lib/SQL/Translator/Object/Constraint.pm
+++ b/lib/SQL/Translator/Object/Constraint.pm
@@ -28,6 +28,7 @@ class SQL::Translator::Object::Constraint extends SQL::Translator::Object {
             get_column    => 'FETCH',
             add_column    => 'STORE',
             remove_column => 'DELETE',
+            has_columns   => 'Length',
             clear_columns => 'CLEAR',
         },
         coerce => 1,