my @values;
+ my $col_info = $source->columns_info(\@cols);
+
for my $col (@cols) {
- my $seq = ( $source->column_info($col)->{sequence} ||= $self->dbh_do('_dbh_get_autoinc_seq', $source, $col) )
+ my $seq = ( $col_info->{$col}{sequence} ||= $self->dbh_do('_dbh_get_autoinc_seq', $source, $col) )
or $self->throw_exception( sprintf(
'could not determine sequence for column %s.%s, please consider adding a schema-qualified sequence to its column info',
$source->name,
# In your result (table) classes
use base 'DBIx::Class::Core';
__PACKAGE__->set_primary_key('id');
- __PACKAGE__->sequence('mysequence');
=head1 DESCRIPTION