From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Tue, 8 Sep 2009 18:59:54 +0000 (-0700)
Subject: default_value might also be a ScalarRef
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ddd6d2addea214b006bf82bc4a74618da0d7e41;p=dbsrgits%2FSQL-Translator-2.0-ish.git

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
--- 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' => (