remove sort

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

diff --git a/lib/SQL/Translator/Object/Column.pm b/lib/SQL/Translator/Object/Column.pm
index af973f2..25dfd30 100644 (file)
--- a/lib/SQL/Translator/Object/Column.pm
+++ b/lib/SQL/Translator/Object/Column.pm
@@ -21,7 +21,7 @@ class SQL::Translator::Object::Column extends SQL::Translator::Object is dirty {
         is => 'rw',
         isa => Str,
         required => 1,
-        trigger => sub { my ($self, $new, $old) = @_; if (defined $old) { $self->table->drop_column($old); $self->table->add_column($self) } }
+        trigger => sub { my ($self, $new, $old) = @_; if (defined $old) { $self->table->remove_column($old); $self->table->add_column($self) } }
     );
     
     has 'data_type' => (
@@ -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' => (
@@ -115,7 +116,7 @@ class SQL::Translator::Object::Column extends SQL::Translator::Object is dirty {
     multi method size(Int $length, Int $precision) { $self->length($length); $self->precision($precision); $self->size }
     multi method size(ArrayRef $size) { $self->length($size->[0]); $self->precision($size->[1]) if @$size == 2; $self->size }
 
-    multi method size(Any $) {
+    multi method size {
         return $self->has_precision
         ? wantarray
             ? ($self->length, $self->precision)