;
my $identity_col =
blessed $ident &&
- first { $ident->column_info($_)->{is_auto_increment} } $ident->columns
+ first { $_->{is_auto_increment} } values %{ $ident->columns_info }
;
if (($op eq 'insert' && $bound_identity_col) ||
my ($source, $to_insert) = @_;
my $identity_col =
- (first { $source->column_info($_)->{is_auto_increment} } $source->columns)
+ (first { $_->{is_auto_increment} } values %{ $source->columns_info } )
|| '';
# check for empty insert
my $table = $source->name;
my $identity_col =
- first { $source->column_info($_)->{is_auto_increment} } $source->columns;
+ first { $_->{is_auto_increment} } values %{ $source->columns_info };
my $is_identity_update = $identity_col && defined $fields->{$identity_col};
my ($source, $cols, $data) = @_;
my $identity_col =
- first { $source->column_info($_)->{is_auto_increment} } $source->columns;
+ first { $_->{is_auto_increment} } values %{ $source->columns_info };
my $is_identity_insert = (first { $_ eq $identity_col } @{$cols}) ? 1 : 0;