backup
is_datatype_numeric
+ _supports_insert_returning
_count_select
_subq_count_select
_subq_update_delete
_do_query
_dbh_sth
_dbh_execute
+ _prefetch_insert_auto_nextvals
+ /,
+
+ # TODO these need to be spread out to ALL servers not just the master
+ qw/
+ _get_server_version
+ _server_info
+ _server_info_hash
/],
);
+
has _master_connect_info_opts =>
(is => 'rw', isa => HashRef, default => sub { {} });
my $wantarray = wantarray;
- my $merge = Hash::Merge->new;
+ my $merge = Hash::Merge->new('LEFT_PRECEDENT');
my %opts;
for my $arg (@$info) {
$self->throw_exception('too many hashrefs in connect_info')
if @hashes > 2;
- my $merge = Hash::Merge->new;
+ my $merge = Hash::Merge->new('LEFT_PRECEDENT');
my %opts = %{ $merge->merge(reverse @hashes) };
# delete them