use BUILDARGS intead of wrapping new, added make_immutable, removed unnneeded test...

diff --git a/lib/DBIx/Class/Storage/DBI/Replicated.pm b/lib/DBIx/Class/Storage/DBI/Replicated.pm
index 4790f9a..7dd1d0d 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/Replicated.pm
+++ b/lib/DBIx/Class/Storage/DBI/Replicated.pm
@@ -415,6 +415,8 @@ inserted something and need to get a resultset including it, etc.
 
 =cut
 
+use Benchmark;
+
 sub execute_reliably {
   my ($self, $coderef, @args) = @_;
   
@@ -422,6 +424,14 @@ sub execute_reliably {
     $self->throw_exception('Second argument must be a coderef');
   }
   
+    my $t0 = new Benchmark;
+    my $clone = $self->clone;
+    my $t1 = new Benchmark;
+    my $td = timediff($t1, $t0);
+    warn "----------------- the code took:",timestr($td),"\n";
+      
+
+  
   ##Get copy of master storage
   my $master = $self->master;