[Bast-commits] r9260 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-04-28 11:20:01 +0100 (Wed, 28 Apr 2010)
New Revision: 9260

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated.pm
Log:
add _verify_pid and _verify_tid to methods that croak in ::Replicated

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated.pm	2010-04-28 09:20:08 UTC (rev 9259)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated.pm	2010-04-28 10:20:01 UTC (rev 9260)
@@ -373,6 +373,8 @@
 my @unimplemented = qw(
   _arm_global_destructor
   _preserve_foreign_dbh
+  _verify_pid
+  _verify_tid
 );
 
 for my $method (@unimplemented) {
@@ -1049,22 +1051,6 @@
   return $self->_server_info->{dbms_version};
 }
 
-sub _verify_pid {
-  my $self = shift;
-
-  for my $storage ($self->all_storages) {
-    $storage->_verify_pid;
-  }
-}
-
-sub _verify_tid {
-  my $self = shift;
-
-  for my $storage ($self->all_storages) {
-    $storage->_verify_tid;
-  }
-}
-
 =head1 GOTCHAS
 
 Due to the fact that replicants can lag behind a master, you must take care to