X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FSchema%2FView.pm;h=faae06c69a112306a6a7945f52079c8797c65bad;hb=5f7fd749ef9338e4a2df50f17a7ec16091a0c7f1;hp=cada3e116918d6d8d987dce69716b11e93e9efcf;hpb=d1a895ce01722a31d6311111e9b8e6b177ff7d7d;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Schema/View.pm b/lib/SQL/Translator/Schema/View.pm index cada3e1..faae06c 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.14 2007-03-21 15:20:50 duality72 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 @@ -44,18 +24,17 @@ C is the view object. =cut use strict; +use warnings; 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.14 $ =~ /(\d+)\.(\d+)/; +our ( $TABLE_COUNT, $VIEW_COUNT ); -# ---------------------------------------------------------------------- +our $VERSION = '1.59'; __PACKAGE__->_attributes( qw/ - name sql fields schema order + name sql fields schema order tables options /); =pod @@ -68,7 +47,6 @@ Object constructor. =cut -# ---------------------------------------------------------------------- sub fields { =pod @@ -95,18 +73,88 @@ 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 tables { + +=pod + +=head2 tables + +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. + + $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 + + my $self = shift; + my $tables = parse_list_arg( @_ ); + + if ( @$tables ) { + my ( %unique, @unique ); + for my $t ( @$tables ) { + next if $unique{ $t }++; + push @unique, $t; + } + + $self->{'tables'} = \@unique; + } + + my @tbls = @{ $self->{'tables'} || [] }; + + return wantarray ? @tbls : \@tbls; +} + +sub options { + +=pod + +=head2 options + +Gets and sets a list of options on the view. + + $view->options('ALGORITHM=UNDEFINED'); + + my @options = $view->options; + +=cut + + my $self = shift; + my $options = parse_list_arg( @_ ); + + if ( @$options ) { + my ( %unique, @unique ); + for my $o ( @$options, @{ $self->{'options'} || [] } ) { + next if $unique{ $o }++; + push @unique, $o; + } + + $self->{'options'} = \@unique; + } + + my @opts = @{ $self->{'options'} || [] }; + + return wantarray ? @opts : \@opts; } -# ---------------------------------------------------------------------- sub is_valid { =pod @@ -127,7 +175,6 @@ Determine whether the view is valid or not. return 1; } -# ---------------------------------------------------------------------- sub name { =pod @@ -145,7 +192,6 @@ Get or set the view's name. return $self->{'name'} || ''; } -# ---------------------------------------------------------------------- sub order { =pod @@ -167,7 +213,6 @@ Get or set the view's order. return $self->{'order'} || 0; } -# ---------------------------------------------------------------------- sub sql { =pod @@ -185,7 +230,6 @@ Get or set the view's SQL. return $self->{'sql'} || ''; } -# ---------------------------------------------------------------------- sub schema { =pod @@ -209,7 +253,6 @@ Get or set the view's schema object. return $self->{'schema'}; } -# ---------------------------------------------------------------------- sub equals { =pod @@ -226,11 +269,11 @@ Determines if this view is the same as another 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; @@ -242,7 +285,7 @@ Determines if this view is the same as another $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; @@ -250,7 +293,6 @@ Determines if this view is the same as another return 1; } -# ---------------------------------------------------------------------- sub DESTROY { my $self = shift; undef $self->{'schema'}; # destroy cyclical reference @@ -258,12 +300,10 @@ sub DESTROY { 1; -# ---------------------------------------------------------------------- - =pod =head1 AUTHOR -Ken Y. Clark Ekclark@cpan.orgE. +Ken Youens-Clark Ekclark@cpan.orgE. =cut