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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-04-28 10:20:08 +0100 (Wed, 28 Apr 2010)
New Revision: 9259

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated.pm
Log:
update ::DBI::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:10:00 UTC (rev 9258)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated.pm	2010-04-28 09:20:08 UTC (rev 9259)
@@ -343,7 +343,6 @@
     _dbh_commit
     _execute_array
     _placeholders_supported
-    _verify_pid
     savepoints
     _sqlt_minimum_version
     _sql_maker_opts
@@ -371,7 +370,17 @@
   /],
 );
 
+my @unimplemented = qw(
+  _arm_global_destructor
+  _preserve_foreign_dbh
+);
 
+for my $method (@unimplemented) {
+  __PACKAGE__->meta->add_method($method, sub {
+    croak "$method must not be called on ".(blessed shift).' objects';
+  });
+}
+
 has _master_connect_info_opts =>
   (is => 'rw', isa => HashRef, default => sub { {} });
 
@@ -1040,6 +1049,22 @@
   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