[Bast-commits] r4507 - DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2008-06-19 16:48:39 +0100 (Thu, 19 Jun 2008)
New Revision: 4507

Modified:
   DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/PK.pm
   DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/Row.pm
Log:
renamed get_current_storage to get_from_storage since the first method name is very poorly named

Modified: DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/PK.pm
===================================================================
--- DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/PK.pm	2008-06-19 14:45:42 UTC (rev 4506)
+++ DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/PK.pm	2008-06-19 15:48:39 UTC (rev 4507)
@@ -40,7 +40,7 @@
   delete $self->{_dirty_columns};
   return unless $self->in_storage; # Don't reload if we aren't real!
   
-  if( my $current_storage = $self->get_current_storage) {
+  if( my $current_storage = $self->get_from_storage) {
   	
     # Set $self to the current.
   	%$self = %$current_storage;

Modified: DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/Row.pm
===================================================================
--- DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/Row.pm	2008-06-19 14:45:42 UTC (rev 4506)
+++ DBIx-Class/0.08/branches/replication_dedux/lib/DBIx/Class/Row.pm	2008-06-19 15:48:39 UTC (rev 4507)
@@ -785,7 +785,7 @@
   $class->mk_group_accessors('column' => $acc);
 }
 
-=head2 get_current_storage
+=head2 get_from_storage
 
 Returns a new Row which is whatever the Storage has for the currently created
 Row object.  You ca use this to see if the storage has become inconsistent with
@@ -793,7 +793,7 @@
 
 =cut
 
-sub get_current_storage {
+sub get_from_storage {
     my $self = shift @_;
     my @primary_columns = map { $self->$_ } $self->primary_columns;
     return $self->result_source->schema->txn_do(sub {