From: David Kamholz <dkamholz@cpan.org>
Date: Sun, 12 Feb 2006 13:36:08 +0000 (+0000)
Subject: fix sequence method in PK::Auto
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ecb6488f81bd746133747d92b32e97a1bfff53da;p=dbsrgits%2FDBIx-Class-Historic.git

fix sequence method in PK::Auto
---

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;