[Bast-commits] r4563 - DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/Storage/DBI

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2008-07-09 18:40:37 +0100 (Wed, 09 Jul 2008)
New Revision: 4563

Modified:
   DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/Storage/DBI/Replicated.pm
Log:
use BUILDARGS intead of wrapping new, added make_immutable, removed unnneeded test, added some docs

Modified: DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/Storage/DBI/Replicated.pm
===================================================================
--- DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/Storage/DBI/Replicated.pm	2008-07-09 17:35:06 UTC (rev 4562)
+++ DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/Storage/DBI/Replicated.pm	2008-07-09 17:40:37 UTC (rev 4563)
@@ -415,6 +415,8 @@
 
 =cut
 
+use Benchmark;
+
 sub execute_reliably {
   my ($self, $coderef, @args) = @_;
   
@@ -422,6 +424,14 @@
     $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;