X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FReplicated.pm;h=c21fe8a44f4784d367a25f91e9311a57f1fa8583;hb=734868da8acee7ff14dff8b91ab18f0edc3c10df;hp=a5de335989593cb4b479a38cd55e2aa4b36c7a74;hpb=e666c5fd810f9103a8e2ae1994e45828169e703d;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Storage/DBI/Replicated.pm b/lib/DBIx/Class/Storage/DBI/Replicated.pm
index a5de335..c21fe8a 100644
--- a/lib/DBIx/Class/Storage/DBI/Replicated.pm
+++ b/lib/DBIx/Class/Storage/DBI/Replicated.pm
@@ -306,6 +306,7 @@ has 'write_handler' => (
 
     backup
     is_datatype_numeric
+    can_insert_returning
     _count_select
     _subq_count_select
     _subq_update_delete
@@ -365,6 +366,7 @@ has 'write_handler' => (
     _do_query
     _dbh_sth
     _dbh_execute
+    _prefetch_insert_auto_nextvals
   /],
 );
 
@@ -384,7 +386,7 @@ around connect_info => sub {
 
   my $wantarray = wantarray;
 
-  my $merge = Hash::Merge->new;
+  my $merge = Hash::Merge->new('LEFT_PRECEDENT');
 
   my %opts;
   for my $arg (@$info) {
@@ -555,7 +557,7 @@ around connect_replicants => sub {
     $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