X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FPK%2FAuto.pm;fp=lib%2FDBIx%2FClass%2FPK%2FAuto.pm;h=f79eca57ceaabe0daed8ab212c000ae00dd6b69f;hb=ecb6488f81bd746133747d92b32e97a1bfff53da;hp=5bf069a17f9f4e5fffd4af3f490674a8388a9499;hpb=69ac22eeebd93c172c5669eeddc1decbae70b9b8;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/PK/Auto.pm b/lib/DBIx/Class/PK/Auto.pm
index 5bf069a..f79eca5 100644
--- a/lib/DBIx/Class/PK/Auto.pm
+++ b/lib/DBIx/Class/PK/Auto.pm
@@ -72,7 +72,12 @@ associated with looking up the sequence automatically.
 
 =cut
 
-__PACKAGE__->mk_classdata('sequence');
+sub sequence {
+    my ($self,$seq) = @_;
+    foreach my $pri ($self->primary_columns) {
+        $self->column_info($pri)->{sequence} = $seq;
+    }
+}
 
 1;