X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FObject%2FTable.pm;h=462dc85c78f00dfb2432fe239c7aa88e6a28149a;hb=de1e817ea3b450c64b635e1b7b9604b2986dcb85;hp=41d54c7069a51372f31fa38147518880cf23c674;hpb=40fb14a965cea852d27d2325b1b39cd1ef31f81a;p=dbsrgits%2FSQL-Translator-2.0-ish.git

diff --git a/lib/SQL/Translator/Object/Table.pm b/lib/SQL/Translator/Object/Table.pm
index 41d54c7..462dc85 100644
--- 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 '') {