X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FFilter%2FGlobals.pm;h=f4de7fa03eb95facef9eee132a8bb58ed82e2834;hb=0e9badbf3cb8beee593cbfc14cf726460967deba;hp=ddff2856b410c624cd49aa498fcc1b3866413eb1;hpb=782b5a43519d2713171767f74a544fe9892542ea;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Filter/Globals.pm b/lib/SQL/Translator/Filter/Globals.pm index ddff285..f4de7fa 100644 --- a/lib/SQL/Translator/Filter/Globals.pm +++ b/lib/SQL/Translator/Filter/Globals.pm @@ -1,25 +1,5 @@ package SQL::Translator::Filter::Globals; -# ------------------------------------------------------------------- -# $Id$ -# ------------------------------------------------------------------- -# Copyright (C) 2002-2009 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 -# ------------------------------------------------------------------- - =head1 NAME SQL::Translator::Filter::Globals - Add global fields and indices to all tables. @@ -41,7 +21,7 @@ SQL::Translator::Filter::Globals - Add global fields and indices to all tables. } ], indices => [ - { + { fields => 'modifed', }, ] @@ -57,8 +37,8 @@ SQL::Translator::Filter::Globals - Add global fields and indices to all tables. =cut use strict; -use vars qw/$VERSION/; -$VERSION = '1.99'; +use warnings; +our $VERSION = '1.59'; sub filter { my $schema = shift; @@ -124,7 +104,7 @@ sub filter { $schema->drop_table($gtbl); } - # Add globalis to tables + # Add globals to tables foreach my $tbl ( $schema->get_tables ) { foreach my $new_fld ( @global_fields ) { @@ -167,7 +147,7 @@ filter. =head1 SEE ALSO -L, L +C, L =head1 BUGS