X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FSchema%2FView.pm;h=c5b9920b07f774f8608524ca2518c707421d22fa;hb=a1c9c64f601668626864d327aa076d9586b10c4b;hp=acbb0ff8f666df5ebd6db038eb6eff15e4f8047d;hpb=9371be50d82c80f4b62e1a682818ebae69fa9583;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Schema/View.pm b/lib/SQL/Translator/Schema/View.pm index acbb0ff..c5b9920 100644 --- a/lib/SQL/Translator/Schema/View.pm +++ b/lib/SQL/Translator/Schema/View.pm @@ -1,25 +1,5 @@ package SQL::Translator::Schema::View; -# ---------------------------------------------------------------------- -# $Id: View.pm,v 1.9 2004-11-05 13:19:31 grommit Exp $ -# ---------------------------------------------------------------------- -# 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 -# published by the Free Software Foundation; version 2. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -# 02111-1307 USA -# ------------------------------------------------------------------- - =pod =head1 NAME @@ -43,22 +23,15 @@ C is the view object. =cut -use strict; -use SQL::Translator::Utils 'parse_list_arg'; - -use base 'SQL::Translator::Schema::Object'; - -use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT); - -$VERSION = sprintf "%d.%02d", q$Revision: 1.9 $ =~ /(\d+)\.(\d+)/; +use Moo; +use SQL::Translator::Utils qw(ex2err); +use SQL::Translator::Types qw(schema_obj); +use SQL::Translator::Role::ListAttr; +use Sub::Quote qw(quote_sub); -# ---------------------------------------------------------------------- +extends 'SQL::Translator::Schema::Object'; -__PACKAGE__->_attributes( qw/ - name sql fields schema order -/); - -=pod +our $VERSION = '1.59'; =head2 new @@ -66,13 +39,6 @@ Object constructor. my $view = SQL::Translator::Schema::View->new; -=cut - -# ---------------------------------------------------------------------- -sub fields { - -=pod - =head2 fields Gets and set the fields the constraint is on. Accepts a string, list or @@ -89,24 +55,38 @@ names and keep them in order by the first occurrence of a field name. =cut - my $self = shift; - my $fields = parse_list_arg( @_ ); +with ListAttr fields => ( uniq => 1 ); - if ( @$fields ) { - my ( %unique, @unique ); - for my $f ( @$fields ) { - next if $unique{ $f }; - $unique{ $f } = 1; - push @unique, $f; - } +=head2 tables - $self->{'fields'} = \@unique; - } +Gets and set the tables the SELECT mentions. Accepts a string, list or +arrayref; returns an array or array reference. Will unique the table +names and keep them in order by the first occurrence of a field name. - return wantarray ? @{ $self->{'fields'} || [] } : $self->{'fields'}; -} + $view->tables('foo'); + $view->tables('foo', 'bar'); + $view->tables( 'foo, bar' ); + $view->tables( [ 'foo', 'bar' ] ); + $view->tables( qw[ foo bar ] ); + + my @tables = $view->tables; + +=cut + +with ListAttr tables => ( uniq => 1 ); + +=head2 options + +Gets or appends a list of options on the view. + + $view->options('ALGORITHM=UNDEFINED'); + + my @options = $view->options; + +=cut + +with ListAttr options => ( uniq => 1, append => 1 ); -# ---------------------------------------------------------------------- sub is_valid { =pod @@ -127,11 +107,6 @@ Determine whether the view is valid or not. return 1; } -# ---------------------------------------------------------------------- -sub name { - -=pod - =head2 name Get or set the view's name. @@ -140,15 +115,7 @@ Get or set the view's name. =cut - my $self = shift; - $self->{'name'} = shift if @_; - return $self->{'name'} || ''; -} - -# ---------------------------------------------------------------------- -sub order { - -=pod +has name => ( is => 'rw', default => quote_sub(q{ '' }) ); =head2 order @@ -158,19 +125,17 @@ Get or set the view's order. =cut - my ( $self, $arg ) = @_; +has order => ( is => 'rw', default => quote_sub(q{ 0 }) ); + +around order => sub { + my ( $orig, $self, $arg ) = @_; if ( defined $arg && $arg =~ /^\d+$/ ) { - $self->{'order'} = $arg; + return $self->$orig($arg); } - return $self->{'order'} || 0; -} - -# ---------------------------------------------------------------------- -sub sql { - -=pod + return $self->$orig; +}; =head2 sql @@ -180,15 +145,7 @@ Get or set the view's SQL. =cut - my $self = shift; - $self->{'sql'} = shift if @_; - return $self->{'sql'} || ''; -} - -# ---------------------------------------------------------------------- -sub schema { - -=pod +has sql => ( is => 'rw', default => quote_sub(q{ '' }) ); =head2 schema @@ -199,30 +156,57 @@ Get or set the view's schema object. =cut +has schema => ( is => 'rw', isa => schema_obj('Schema'), weak_ref => 1 ); + +around schema => \&ex2err; + +=head2 equals + +Determines if this view is the same as another + + my $isIdentical = $view1->equals( $view2 ); + +=cut + +around equals => sub { + my $orig = shift; my $self = shift; - if ( my $arg = shift ) { - return $self->error('Not a schema object') unless - UNIVERSAL::isa( $arg, 'SQL::Translator::Schema' ); - $self->{'schema'} = $arg; + my $other = shift; + my $case_insensitive = shift; + my $ignore_sql = shift; + + return 0 unless $self->$orig($other); + 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; + + unless ($ignore_sql) { + my $selfSql = $self->sql; + my $otherSql = $other->sql; + # Remove comments + $selfSql =~ s/--.*$//mg; + $otherSql =~ s/--.*$//mg; + # Collapse whitespace to space to avoid whitespace comparison issues + $selfSql =~ s/\s+/ /sg; + $otherSql =~ s/\s+/ /sg; + return 0 unless $selfSql eq $otherSql; } - return $self->{'schema'}; -} + my $selfFields = join(":", $self->fields); + my $otherFields = join(":", $other->fields); + return 0 unless $case_insensitive ? uc($selfFields) eq uc($otherFields) : $selfFields eq $otherFields; + return 0 unless $self->_compare_objects(scalar $self->extra, scalar $other->extra); + return 1; +}; -# ---------------------------------------------------------------------- -sub DESTROY { - my $self = shift; - undef $self->{'schema'}; # destroy cyclical reference -} +# Must come after all 'has' declarations +around new => \&ex2err; 1; -# ---------------------------------------------------------------------- - =pod =head1 AUTHOR -Ken Y. Clark Ekclark@cpan.orgE. +Ken Youens-Clark Ekclark@cpan.orgE. =cut