coerce from Column from Str

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

diff --git a/lib/SQL/Translator/Types.pm b/lib/SQL/Translator/Types.pm
index 143f31b..2fc13f4 100644 (file)
--- a/lib/SQL/Translator/Types.pm
+++ b/lib/SQL/Translator/Types.pm
@@ -25,7 +25,8 @@ class SQL::Translator::Types {
     class_type Producer, { class => 'SQL::Translator::Producer' };
     class_type Translator, { class => 'SQL::Translator' };
 
-    coerce Column, from HashRef, via { SQL::Translator::Object::Column->new($_) };
+    coerce Column, from HashRef, via { SQL::Translator::Object::Column->new($_) },
+                   from Str,     via { SQL::Translator::Object::Column->new( name => $_ ) };
     coerce Constraint, from HashRef, via { SQL::Translator::Object::Constraint->new($_) };
     coerce ForeignKey, from HashRef, via { SQL::Translator::Object::ForeignKey->new($_) };
     coerce Index, from HashRef, via { SQL::Translator::Object::Index->new($_) };