X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FSchema%2FView.pm;h=462a9e82171e9b09280e40961e241b257c527ebe;hb=f9a2a1d9f8ab219877ccdea0adb610943e804357;hp=c41f5f097622b95dc038e5d6955513d081637c28;hpb=25a02fa730c2f24d9d1ed36f3ded087e5bfaa47e;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Schema/View.pm b/lib/SQL/Translator/Schema/View.pm index c41f5f0..462a9e8 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.2 2003-05-09 17:12:15 kycl4rk Exp $ -# ---------------------------------------------------------------------- -# Copyright (C) 2003 Ken Y. Clark -# -# 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 @@ -29,9 +9,10 @@ SQL::Translator::Schema::View - SQL::Translator view object =head1 SYNOPSIS use SQL::Translator::Schema::View; - my $view = SQL::Translator::Schema::View->new( - name => 'foo', - sql => 'select * from foo', + my $view = SQL::Translator::Schema::View->new( + name => 'foo', # name, required + sql => 'select id, name from foo', # SQL for view + fields => 'id, name', # field names in view ); =head1 DESCRIPTION @@ -43,16 +24,18 @@ C is the view object. =cut use strict; -use Class::Base; +use warnings; use SQL::Translator::Utils 'parse_list_arg'; -use base 'Class::Base'; -use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT); +use base 'SQL::Translator::Schema::Object'; + +our ( $TABLE_COUNT, $VIEW_COUNT ); -$VERSION = 1.00; +our $VERSION = '1.59'; -# ---------------------------------------------------------------------- -sub init { +__PACKAGE__->_attributes( qw/ + name sql fields schema order +/); =pod @@ -60,21 +43,10 @@ sub init { Object constructor. - my $schema = SQL::Translator::Schema::View->new; + my $view = SQL::Translator::Schema::View->new; =cut - my ( $self, $config ) = @_; - - for my $arg ( qw[ name sql fields ] ) { - next unless $config->{ $arg }; - $self->$arg( $config->{ $arg } ) or return; - } - - return $self; -} - -# ---------------------------------------------------------------------- sub fields { =pod @@ -101,18 +73,18 @@ names and keep them in order by the first occurrence of a field name. if ( @$fields ) { my ( %unique, @unique ); for my $f ( @$fields ) { - next if $unique{ $f }; - $unique{ $f } = 1; + next if $unique{ $f }++; push @unique, $f; } $self->{'fields'} = \@unique; } - return wantarray ? @{ $self->{'fields'} || [] } : $self->{'fields'}; + my @flds = @{ $self->{'fields'} || [] }; + + return wantarray ? @flds : \@flds; } -# ---------------------------------------------------------------------- sub is_valid { =pod @@ -133,7 +105,6 @@ Determine whether the view is valid or not. return 1; } -# ---------------------------------------------------------------------- sub name { =pod @@ -151,7 +122,6 @@ Get or set the view's name. return $self->{'name'} || ''; } -# ---------------------------------------------------------------------- sub order { =pod @@ -173,7 +143,6 @@ Get or set the view's order. return $self->{'order'} || 0; } -# ---------------------------------------------------------------------- sub sql { =pod @@ -191,20 +160,80 @@ Get or set the view's SQL. return $self->{'sql'} || ''; } -# ---------------------------------------------------------------------- +sub schema { + +=pod + +=head2 schema + +Get or set the view's schema object. + + $view->schema( $schema ); + my $schema = $view->schema; + +=cut + + my $self = shift; + if ( my $arg = shift ) { + return $self->error('Not a schema object') unless + UNIVERSAL::isa( $arg, 'SQL::Translator::Schema' ); + $self->{'schema'} = $arg; + } + + return $self->{'schema'}; +} + +sub equals { + +=pod + +=head2 equals + +Determines if this view is the same as another + + my $isIdentical = $view1->equals( $view2 ); + +=cut + + my $self = shift; + my $other = shift; + my $case_insensitive = shift; + my $ignore_sql = shift; + + return 0 unless $self->SUPER::equals($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; + } + + 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->{'table'}; # destroy cyclical reference + undef $self->{'schema'}; # destroy cyclical reference } 1; -# ---------------------------------------------------------------------- - =pod =head1 AUTHOR -Ken Y. Clark Ekclark@cpan.orgE +Ken Youens-Clark Ekclark@cpan.orgE. =cut