X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2FPg.pm;h=c962e0b7432401fd7f3ea33ec5ff9f7ae97bb6c1;hb=a8df03450bdfb3a5131e679274dab15f6e2db7f0;hp=d5fc32efaa44664ee135da1132bed962c94e632d;hpb=e7213f4f82f1b5f593ee9d6a96be818aa89165d3;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm b/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
index d5fc32e..c962e0b 100644
--- a/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
+++ b/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
@@ -95,10 +95,15 @@ sub _table_uniq_info {
     return \@uniqs;
 }
 
-sub _column_is_auto_increment {
+sub _extra_column_info {
     my ($self, $info) = @_;
+    my %extra_info;
 
-    return $info->{COLUMN_DEF} && $info->{COLUMN_DEF} =~ /\bnextval\(/i;
+    if ($info->{COLUMN_DEF} && $info->{COLUMN_DEF} =~ /\bnextval\(/i) {
+        $extra_info{is_auto_increment} = 1;
+    }
+
+    return \%extra_info;
 }
 
 =head1 SEE ALSO