[Bast-commits] r6679 - DBIx-Class/0.08/branches/on_connect_call/lib/DBIx/Class/Storage

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-14 16:56:40 +0000 (Sun, 14 Jun 2009)
New Revision: 6679

Modified:
   DBIx-Class/0.08/branches/on_connect_call/lib/DBIx/Class/Storage/DBI.pm
Log:
rename connect_do store

Modified: DBIx-Class/0.08/branches/on_connect_call/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/on_connect_call/lib/DBIx/Class/Storage/DBI.pm	2009-06-14 16:48:48 UTC (rev 6678)
+++ DBIx-Class/0.08/branches/on_connect_call/lib/DBIx/Class/Storage/DBI.pm	2009-06-14 16:56:40 UTC (rev 6679)
@@ -15,7 +15,8 @@
 __PACKAGE__->mk_group_accessors('simple' =>
     qw/_connect_info _dbi_connect_info _dbh _sql_maker _sql_maker_opts
        _conn_pid _conn_tid transaction_depth _dbh_autocommit _on_connect_do
-       _on_disconnect_do __on_connect_do __on_disconnect_do savepoints/
+       _on_disconnect_do _on_connect_do_store _on_disconnect_do_store
+       savepoints/
 );
 
 # the values for these accessors are picked out (and deleted) from
@@ -472,7 +473,7 @@
   my ($self, $opt) = (shift, shift);
 
   my $accessor = "_$opt";
-  my $store    = "__$opt";
+  my $store    = "_${opt}_store";
 
   return $self->$accessor if not @_;
 
@@ -649,7 +650,7 @@
     if (my $connection_call = $self->on_disconnect_call) {
       $self->_do_connection_actions(disconnect_call_ => $connection_call)
     }
-    if (my $connection_do   = $self->__on_disconnect_do) {
+    if (my $connection_do   = $self->_on_disconnect_do_store) {
       $self->_do_connection_actions(disconnect_call_ => $connection_do)
     }
 
@@ -771,7 +772,7 @@
   if (my $connection_call = $self->on_connect_call) {
     $self->_do_connection_actions(connect_call_ => $connection_call)
   }
-  if (my $connection_do = $self->__on_connect_do) {
+  if (my $connection_do = $self->_on_connect_do_store) {
     $self->_do_connection_actions(connect_call_ => $connection_do)
   }
 }