fix SQLite reverse-engineering, closes: CPAN#95961

[DBIx-DBSchema.git] / DBSchema / DBD / SQLite.pm

diff --git a/DBSchema/DBD/SQLite.pm b/DBSchema/DBD/SQLite.pm
index 8bc52c8..6cfb017 100644 (file)
--- a/DBSchema/DBD/SQLite.pm
+++ b/DBSchema/DBD/SQLite.pm
@@ -1,14 +1,13 @@
 package DBIx::DBSchema::DBD::SQLite;
+use base qw( DBIx::DBSchema::DBD );
 
 use strict;
-use vars qw($VERSION @ISA %typemap);
-use DBIx::DBSchema::DBD;
+use vars qw($VERSION %typemap);
 
-$VERSION = '0.01';
-@ISA = qw(DBIx::DBSchema::DBD);
+$VERSION = '0.03';
 
 %typemap = (
-'SERIAL' => 'INTEGER PRIMARY KEY'
+  'SERIAL' => 'INTEGER PRIMARY KEY AUTOINCREMENT',
 );
 
 =head1 NAME
@@ -50,7 +49,7 @@ driver-specific use (which for sqlite is whether this col is a primary key)
 
 sub columns {
     my ( $proto, $dbh, $table ) = @_;
-    my $sth  = $dbh->prepare('PRAGMA table_info($table)');
+    my $sth  = $dbh->prepare("PRAGMA table_info($table)");
         $sth->execute();
     my $rows = [];
 
@@ -187,7 +186,7 @@ while ( my $row = $sth->fetchrow_hashref ) {
 
 }
 
-=begin pod
+=pod
 
 =back