Backward-compatible sqlite autoincrement

AUTHORS

@@ -27,6 +27,7 @@ The following people have contributed to the SQLFairy project:
 -   Geoff Cant <geoff@catalyst.net.nz>
 -   Gudmundur A. Thorisson <mummi@cshl.org>
 -   Guillermo Roditi <groditi@cpan.org>
+-   Ivan Baidakou (basiliscos) <dmol@cpan.org>
 -   Jaime Soriano Pastor <jsoriano@tuenti.com>
 -   Jason Williams <smdwilliams@users.sourceforge.net>
 -   Johan Viklund <viklund@cpan.org>

lib/SQL/Translator/Generator/DDL/SQLite.pm

@@ -75,17 +75,30 @@ sub _ipk {
    ( $field->data_type =~ /^number?$/i && $field->size !~ /,/ ) )
 }
 
+sub field_autoinc {
+    my ($self, $field) = @_;
+    my $auto_increment_method = $field->extra->{auto_increment_method};
+    # use 'old' backward-compatible behaviour, i.e. use
+    # monotonic autoincrement only if it is specified in extra
+    my $force_autoinc = $field->is_auto_increment
+        && $self->_ipk($field)
+        && defined($auto_increment_method)
+        && $auto_increment_method eq 'sequence'
+        ;
+    return ( $force_autoinc ? 'AUTOINCREMENT' : () )
+}
+
 sub field {
    my ($self, $field) = @_;
 
-
    return join ' ',
       $self->field_comments($field),
       $self->field_name($field),
       ( $self->_ipk($field)
          ? ( 'INTEGER PRIMARY KEY' )
          : ( $self->field_type($field) )
       ),
+      $self->field_autoinc($field),
       $self->field_nullable($field),
       $self->field_default($field, {
          NULL => 1,

t/56-sqlite-producer.t

@@ -164,6 +164,25 @@ $SQL::Translator::Producer::SQLite::NO_QUOTES = 0;
    is_deeply($result, $expected, 'correctly unquoted excempted DEFAULTs');
 }
 
+{
+   my $table = SQL::Translator::Schema::Table->new(
+       name => 'some_table',
+   );
+   $table->add_field(
+       name => 'id',
+       data_type => 'integer',
+       is_auto_increment => 1,
+       is_nullable => 0,
+       extra => {
+           auto_increment_method => 'sequence',
+       },
+   );
+   $table->primary_key('id');
+   my $expected = [ qq<CREATE TABLE "some_table" (\n  "id" INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL\n)>];
+   my $result =  [SQL::Translator::Producer::SQLite::create_table($table, { no_comments => 1 })];
+   is_deeply($result, $expected, 'correctly built monotonicly autoincremened PK');
+}
+
 {
     my $table = SQL::Translator::Schema::Table->new( name => 'foobar', fields => ['foo'] );