default_value might also be a ScalarRef

diff --git a/lib/SQL/Translator/Object/Column.pm b/lib/SQL/Translator/Object/Column.pm
index 71eda45..e6e950a 100644 (file)
--- a/lib/SQL/Translator/Object/Column.pm
+++ b/lib/SQL/Translator/Object/Column.pm
@@ -1,6 +1,6 @@
 use MooseX::Declare;
 class SQL::Translator::Object::Column extends SQL::Translator::Object {
-    use MooseX::Types::Moose qw(Bool Int Maybe Str);
+    use MooseX::Types::Moose qw(Bool Int Maybe ScalarRef Str);
     use MooseX::MultiMethods;
     use SQL::Translator::Types qw(Bit ColumnSize Constraint Table Trigger);
 
@@ -45,7 +45,7 @@ class SQL::Translator::Object::Column extends SQL::Translator::Object {
     
     has 'default_value' => (
         is => 'rw',
-        isa => Maybe[Str],
+        isa => Maybe[ScalarRef|Str],
     );
 
     has 'is_auto_increment' => (