[Bast-commits] r3814 - in DBIx-Class/0.08/trunk: lib/DBIx/Class lib/SQL/Translator/Parser/DBIx t

ash at dev.catalyst.perl.org ash at dev.catalyst.perl.org
Fri Oct 12 11:32:41 GMT 2007


Author: ash
Date: 2007-10-12 11:32:41 +0100 (Fri, 12 Oct 2007)
New Revision: 3814

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSourceProxy.pm
   DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
   DBIx-Class/0.08/trunk/t/86sqlt.t
Log:
s/indices/indexes/ to keep Jess happy.

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm	2007-10-12 10:26:55 UTC (rev 3813)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm	2007-10-12 10:32:41 UTC (rev 3814)
@@ -13,7 +13,7 @@
 __PACKAGE__->mk_group_accessors('simple' => qw/_ordered_columns
   _columns _primaries _unique_constraints name resultset_attributes
   schema from _relationships column_info_from_storage source_info
-  source_name _indices/);
+  source_name _indexes/);
 
 __PACKAGE__->mk_group_accessors('component_class' => qw/resultset_class
   result_class/);
@@ -55,7 +55,7 @@
   $new->{_relationships} = { %{$new->{_relationships}||{}} };
   $new->{name} ||= "!!NAME NOT SET!!";
   $new->{_columns_info_loaded} ||= 0;
-  $new->_indices([]) unless $new->_indices;
+  $new->_indexes([]) unless $new->_indexes;
   return $new;
 }
 
@@ -461,17 +461,17 @@
 sub add_index {
   my ($self, $idx) = @_;
 
-  push @{ $self->_indices }, $idx;
+  push @{ $self->_indexes }, $idx;
 }
 
-=head2 indicies
+=head2 indexes
 
-Returns list of secondary (i.e. non unique) indicies created on this table.
+Returns list of secondary (i.e. non unique) indexes created on this table.
 
 =cut
 
-sub indices {
-  return @{ shift->_indices };
+sub indexes {
+  return @{ shift->_indexes };
 }
 
 =head2 add_relationship

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSourceProxy.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSourceProxy.pm	2007-10-12 10:26:55 UTC (rev 3813)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSourceProxy.pm	2007-10-12 10:32:41 UTC (rev 3814)
@@ -108,8 +108,8 @@
   shift->result_source_instance->add_index(@_);
 }
 
-sub indices {
-  shift->result_source_instance->indices(@_);
+sub indexes {
+  shift->result_source_instance->indexes(@_);
 }
 
 1;

Modified: DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2007-10-12 10:26:55 UTC (rev 3813)
+++ DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2007-10-12 10:32:41 UTC (rev 3814)
@@ -109,7 +109,7 @@
             }
         }
 
-        foreach my $idx ( $source->indices ) {
+        foreach my $idx ( $source->indexes ) {
             my $ret = $table->add_index(%$idx)
               or die $table->error;
         }

Modified: DBIx-Class/0.08/trunk/t/86sqlt.t
===================================================================
--- DBIx-Class/0.08/trunk/t/86sqlt.t	2007-10-12 10:26:55 UTC (rev 3813)
+++ DBIx-Class/0.08/trunk/t/86sqlt.t	2007-10-12 10:32:41 UTC (rev 3814)
@@ -214,7 +214,7 @@
 #  ],
 );
 
-my %indices = (
+my %indexes = (
   artist => [
     {
       'fields' => ['name']
@@ -253,8 +253,8 @@
   }
 }
 
-for my $table_index (keys %indices) {
-  for my $expected_index ( @{ $indices{$table_index} } ) {
+for my $table_index (keys %indexes) {
+  for my $expected_index ( @{ $indexes{$table_index} } ) {
 
     ok ( get_index($table_index, $expected_index), "Got a matching index on $table_index table");
   }




More information about the Bast-commits mailing list