X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FSchema%2FIndex.pm;h=4a5237ea8c765a519f331ff12cfcd6406e0a9aae;hb=bdd8e79a7b6abb123363ff8006bc21b0bd33d698;hp=f11f32e096622bac4455d59d2ffae3d693a05e8c;hpb=43b9dc7ab0953ab9f4cbadf7810509d63d2ed87a;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Schema/Index.pm b/lib/SQL/Translator/Schema/Index.pm index f11f32e..4a5237e 100644 --- a/lib/SQL/Translator/Schema/Index.pm +++ b/lib/SQL/Translator/Schema/Index.pm @@ -1,9 +1,9 @@ package SQL::Translator::Schema::Index; # ---------------------------------------------------------------------- -# $Id: Index.pm,v 1.2 2003-05-05 04:32:39 kycl4rk Exp $ +# $Id: Index.pm,v 1.18 2007-10-24 10:55:44 schiffbruechige Exp $ # ---------------------------------------------------------------------- -# Copyright (C) 2003 Ken Y. Clark +# Copyright (C) 2002-4 SQLFairy Authors # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as @@ -39,28 +39,33 @@ SQL::Translator::Schema::Index - SQL::Translator index object C is the index object. -Primary keys will be considered table constraints, not indices. +Primary and unique keys are table constraints, not indices. =head1 METHODS =cut use strict; -use Class::Base; +use SQL::Translator::Schema::Constants; +use SQL::Translator::Utils 'parse_list_arg'; + +use base 'SQL::Translator::Schema::Object'; -use base 'Class::Base'; use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT); -$VERSION = 1.00; +$VERSION = sprintf "%d.%02d", q$Revision: 1.18 $ =~ /(\d+)\.(\d+)/; -use constant VALID_TYPE => { - unique => 1, - normal => 1, - full_text => 1, # MySQL only (?) -}; +my %VALID_INDEX_TYPE = ( + UNIQUE, 1, + NORMAL, 1, + FULL_TEXT, 1, # MySQL only (?) +); # ---------------------------------------------------------------------- -sub init { + +__PACKAGE__->_attributes( qw/ + name type fields table options +/); =pod @@ -72,14 +77,6 @@ Object constructor. =cut - my ( $self, $config ) = @_; - for my $arg ( qw[ name type fields ] ) { - next unless $config->{ $arg }; - $self->$arg( $config->{ $arg } ) or return; - } - return $self; -} - # ---------------------------------------------------------------------- sub fields { @@ -87,24 +84,64 @@ sub fields { =head2 fields -Gets and set the fields the index is on. Accepts a list or arrayref, -return both, too. +Gets and set the fields the index is on. Accepts a string, list or +arrayref; returns an array or array reference. Will unique the field +names and keep them in order by the first occurrence of a field name. + + $index->fields('id'); + $index->fields('id', 'name'); + $index->fields( 'id, name' ); + $index->fields( [ 'id', 'name' ] ); + $index->fields( qw[ id name ] ); - my @fields = $index->fields( 'id' ); + my @fields = $index->fields; =cut my $self = shift; - my $fields = ref $_[0] eq 'ARRAY' ? shift : [ @_ ]; + my $fields = parse_list_arg( @_ ); if ( @$fields ) { - $self->{'fields'} = $fields; + my ( %unique, @unique ); + for my $f ( @$fields ) { + next if $unique{ $f }; + $unique{ $f } = 1; + push @unique, $f; + } + + $self->{'fields'} = \@unique; } return wantarray ? @{ $self->{'fields'} || [] } : $self->{'fields'}; } # ---------------------------------------------------------------------- +sub is_valid { + +=pod + +=head2 is_valid + +Determine whether the index is valid or not. + + my $ok = $index->is_valid; + +=cut + + my $self = shift; + my $table = $self->table or return $self->error('No table'); + my @fields = $self->fields or return $self->error('No fields'); + + for my $field ( @fields ) { + return $self->error( + "Field '$field' does not exist in table '", $table->name, "'" + ) unless $table->get_field( $field ); + } + + return 1; +} + +# ---------------------------------------------------------------------- sub name { =pod @@ -123,6 +160,33 @@ Get or set the index's name. } # ---------------------------------------------------------------------- +sub options { + +=pod + +=head2 options + +Get or set the index's options (e.g., "using" or "where" for PG). Returns +an array or array reference. + + my @options = $index->options; + +=cut + + my $self = shift; + my $options = parse_list_arg( @_ ); + + push @{ $self->{'options'} }, @$options; + + if ( ref $self->{'options'} ) { + return wantarray ? @{ $self->{'options'} || [] } : $self->{'options'}; + } + else { + return wantarray ? () : []; + } +} + +# ---------------------------------------------------------------------- sub table { =pod @@ -162,29 +226,65 @@ Get or set the index's type. if ( my $type = shift ) { return $self->error("Invalid index type: $type") - unless VALID_TYPE->{ $type }; + unless $VALID_INDEX_TYPE{ $type }; $self->{'type'} = $type; } - return $self->{'type'} || ''; + return $self->{'type'} || NORMAL; } - # ---------------------------------------------------------------------- -sub is_valid { +sub equals { =pod -=head2 is_valid +=head2 equals -Determine whether the index is valid or not. +Determines if this index is the same as another - my $ok = $index->is_valid; + my $isIdentical = $index1->equals( $index2 ); =cut my $self = shift; - return ( $self->name && $self->{'type'} && @{ $self->fields } ) ? 1 : 0; + my $other = shift; + my $case_insensitive = shift; + my $ignore_index_names = shift; + + return 0 unless $self->SUPER::equals($other); + + unless ($ignore_index_names) { + unless ((!$self->name && ($other->name eq $other->fields->[0])) || + (!$other->name && ($self->name eq $self->fields->[0]))) { + return 0 unless $case_insensitive ? uc($self->name) eq uc($other->name) : $self->name eq $other->name; + } + } + #return 0 unless $self->is_valid eq $other->is_valid; + return 0 unless $self->type eq $other->type; + + # Check fields, regardless of order + my %otherFields = (); # create a hash of the other fields + foreach my $otherField ($other->fields) { + $otherField = uc($otherField) if $case_insensitive; + $otherFields{$otherField} = 1; + } + foreach my $selfField ($self->fields) { # check for self fields in hash + $selfField = uc($selfField) if $case_insensitive; + return 0 unless $otherFields{$selfField}; + delete $otherFields{$selfField}; + } + # Check all other fields were accounted for + return 0 unless keys %otherFields == 0; + + return 0 unless $self->_compare_objects(scalar $self->options, scalar $other->options); + return 0 unless $self->_compare_objects(scalar $self->extra, scalar $other->extra); + return 1; +} + +# ---------------------------------------------------------------------- +sub DESTROY { + my $self = shift; + undef $self->{'table'}; # destroy cyclical reference } 1; @@ -195,6 +295,6 @@ Determine whether the index is valid or not. =head1 AUTHOR -Ken Y. Clark Ekclark@cpan.orgE +Ken Y. Clark Ekclark@cpan.orgE. =cut