add backcompat methods and some checking on ->name

[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Object / Column.pm

diff --git a/lib/SQL/Translator/Object/Column.pm b/lib/SQL/Translator/Object/Column.pm
index d0632d9..bfd14a2 100644 (file)
--- a/lib/SQL/Translator/Object/Column.pm
+++ b/lib/SQL/Translator/Object/Column.pm
@@ -86,6 +86,11 @@ class SQL::Translator::Object::Column extends SQL::Translator::Object {
                          : join ',', @sizes;
     }
 
+    method full_name { $self->table->name . '.' . $self->name }
+    method schema { $self->table->schema }
+
     method order { }
     method is_unique { }
+
+    before name($name?) { die "Can't use column name $name" if $name && $self->table->exists_column($name) && $name ne $self->name; }
 }