s/indices/indexes/ to keep Jess happy.
Ash Berlin [Fri, 12 Oct 2007 10:32:41 +0000 (10:32 +0000)]
lib/DBIx/Class/ResultSource.pm
lib/DBIx/Class/ResultSourceProxy.pm
lib/SQL/Translator/Parser/DBIx/Class.pm
t/86sqlt.t

index 11f2b09..3d06ba9 100644 (file)
@@ -13,7 +13,7 @@ use base qw/DBIx::Class/;
 __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 @@ sub new {
   $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 @@ as L<SQL::Translator::Schema::Table::add_index>.
 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
index 2ac1228..65ea6d2 100644 (file)
@@ -108,8 +108,8 @@ sub add_index {
   shift->result_source_instance->add_index(@_);
 }
 
-sub indices {
-  shift->result_source_instance->indices(@_);
+sub indexes {
+  shift->result_source_instance->indexes(@_);
 }
 
 1;
index a0f37b6..546f773 100644 (file)
@@ -109,7 +109,7 @@ sub parse {
             }
         }
 
-        foreach my $idx ( $source->indices ) {
+        foreach my $idx ( $source->indexes ) {
             my $ret = $table->add_index(%$idx)
               or die $table->error;
         }
index 7a76f79..c70be74 100644 (file)
@@ -214,7 +214,7 @@ my %unique_constraints = (
 #  ],
 );
 
-my %indices = (
+my %indexes = (
   artist => [
     {
       'fields' => ['name']
@@ -253,8 +253,8 @@ for my $expected_constraints (keys %unique_constraints) {
   }
 }
 
-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");
   }