From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Tue, 22 Sep 2009 01:03:43 +0000 (-0700)
Subject: add backcompat methods and some checking on ->name
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8bd81980c414a7077fbb89f4276b64674b465d08;p=dbsrgits%2FSQL-Translator-2.0-ish.git

add backcompat methods and some checking on ->name
---

diff --git a/lib/SQL/Translator/Object/Column.pm b/lib/SQL/Translator/Object/Column.pm
index d0632d9..bfd14a2 100644
--- 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; }
 }