use Try::Tiny;
use namespace::clean;
+__PACKAGE__->sql_limit_dialect ('RowCountOrGenericSubQ');
+
__PACKAGE__->mk_group_accessors('simple' =>
qw/_identity _blob_log_on_update _writer_storage _is_extra_storage
_bulk_storage _is_bulk_storage _began_bulk_work
variable.
EOF
- if (not $self->_typeless_placeholders_supported) {
- if ($self->_placeholders_supported) {
+ if (not $self->_use_typeless_placeholders) {
+ if ($self->_use_placeholders) {
$self->auto_cast(1);
}
else {
$self->_rebless;
}
# this is highly unlikely, but we check just in case
- elsif (not $self->_typeless_placeholders_supported) {
+ elsif (not $self->_use_typeless_placeholders) {
$self->auto_cast(1);
}
}
first { $bind_info->{$_}{is_auto_increment} }
keys %$bind_info
;
+
+ my $columns_info = blessed $ident && $ident->columns_info;
+
my $identity_col =
- blessed $ident &&
- first { $ident->column_info($_)->{is_auto_increment} } $ident->columns
+ $columns_info &&
+ first { $columns_info->{$_}{is_auto_increment} }
+ keys %$columns_info
;
if (($op eq 'insert' && $bound_identity_col) ||
my $self = shift;
my ($source, $to_insert) = @_;
+ my $columns_info = $source->columns_info;
+
my $identity_col =
- (first { $source->column_info($_)->{is_auto_increment} } $source->columns)
+ (first { $columns_info->{$_}{is_auto_increment} }
+ keys %$columns_info )
|| '';
# check for empty insert
my $table = $source->name;
+ my $columns_info = $source->columns_info;
+
my $identity_col =
- first { $source->column_info($_)->{is_auto_increment} } $source->columns;
+ first { $columns_info->{$_}{is_auto_increment} }
+ keys %$columns_info;
my $is_identity_update = $identity_col && defined $fields->{$identity_col};
my $self = shift;
my ($source, $cols, $data) = @_;
+ my $columns_info = $source->columns_info;
+
my $identity_col =
- first { $source->column_info($_)->{is_auto_increment} } $source->columns;
+ first { $columns_info->{$_}{is_auto_increment} }
+ keys %$columns_info;
my $is_identity_insert = (first { $_ eq $identity_col } @{$cols}) ? 1 : 0;
=item *
-Adaptive Server Anywhere (ASA) support, with possible SQLA::Limit support.
+Adaptive Server Anywhere (ASA) support
=item *