hack to make column auto_increment if it is changed to serial (pg)

diff --git a/lib/SQL/Translator/Object/Column.pm b/lib/SQL/Translator/Object/Column.pm
index 616fb08..25dfd30 100644 (file)
--- a/lib/SQL/Translator/Object/Column.pm
+++ b/lib/SQL/Translator/Object/Column.pm
@@ -29,6 +29,7 @@ class SQL::Translator::Object::Column extends SQL::Translator::Object is dirty {
         isa => Str,
         required => 1,
         default => '',
+        trigger => sub { my ($self, $new, $old) = @_; $self->is_auto_increment(1) if $new =~ /^serial$/i; },
     );
 
     has 'sql_data_type' => (