add some error checking to add_column and an alias to it

diff --git a/lib/SQL/Translator/Object/Table.pm b/lib/SQL/Translator/Object/Table.pm
index 41d54c7..462dc85 100644 (file)
--- a/lib/SQL/Translator/Object/Table.pm
+++ b/lib/SQL/Translator/Object/Table.pm
@@ -91,7 +91,12 @@ class SQL::Translator::Object::Table extends SQL::Translator::Object is dirty {
         default => 0
     );
 
-    around add_column(Column $column) { $self->$orig($column->name, $column) }
+    method add_field(Column $column does coerce) { $self->add_column($column) }
+
+    around add_column(Column $column does coerce) {
+        die "Can't use column name " . $column->name if $self->exists_column($column->name) || $column->name eq '';
+        return $self->$orig($column->name, $column);
+    }
     around add_constraint(Constraint $constraint) {
         my $name = $constraint->name;
         if ($name eq '') {