From: Jonathan Yu Date: Sat, 17 Jan 2009 16:31:57 +0000 (+0000) Subject: - Removed use of $Revision$ SVN keyword to generate VERSION variables; now sub-module... X-Git-Tag: v0.11008~248 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=478f608d9028508396da37bb5df10b3057b96981;p=dbsrgits%2FSQL-Translator.git - Removed use of $Revision$ SVN keyword to generate VERSION variables; now sub-modules are unversioned. I'm not sure if this is the right thing to do, but svn doesn't provide version numbers like CVS used to. I think module versions, if necessary, should be adjusted manually. --- diff --git a/bin/sqlt b/bin/sqlt index 339f355..8187b0d 100755 --- a/bin/sqlt +++ b/bin/sqlt @@ -4,7 +4,7 @@ # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -153,9 +153,6 @@ use Getopt::Long; use Pod::Usage; use SQL::Translator; -use vars qw( $VERSION ); -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - my $from; # the original database my $to; # the destination database my $help; # show POD and bail diff --git a/bin/sqlt-diagram b/bin/sqlt-diagram index 5780690..1493605 100755 --- a/bin/sqlt-diagram +++ b/bin/sqlt-diagram @@ -3,7 +3,7 @@ # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -75,9 +75,6 @@ use Getopt::Long; use Pod::Usage; use SQL::Translator; -use vars '$VERSION'; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - # # Get arguments. # diff --git a/bin/sqlt-diff b/bin/sqlt-diff index 22ee56c..2bb065a 100755 --- a/bin/sqlt-diff +++ b/bin/sqlt-diff @@ -4,7 +4,7 @@ # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 The SQLFairy Authors +# Copyright (C) 2002-2009 The 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 @@ -111,9 +111,6 @@ use SQL::Translator; use SQL::Translator::Diff; use SQL::Translator::Schema::Constants; -use vars qw( $VERSION ); -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - my ( @input, $list, $help, $debug, $trace, $caseopt, $ignore_index_names, $ignore_constraint_names, $output_db, $mysql_parser_version, $ignore_view_sql, $ignore_proc_sql, $no_batch_alters ); diff --git a/bin/sqlt-diff-old b/bin/sqlt-diff-old index 6aa0767..0b3839c 100755 --- a/bin/sqlt-diff-old +++ b/bin/sqlt-diff-old @@ -4,7 +4,7 @@ # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 The SQLFairy Authors +# Copyright (C) 2002-2009 The 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 @@ -96,9 +96,6 @@ use Data::Dumper; use SQL::Translator; use SQL::Translator::Schema::Constants; -use vars qw( $VERSION ); -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - my ( @input, $list, $help, $debug ); for my $arg ( @ARGV ) { if ( $arg =~ m/^-?-l(ist)?$/ ) { diff --git a/bin/sqlt-dumper b/bin/sqlt-dumper index cc62be7..3cc0d75 100755 --- a/bin/sqlt-dumper +++ b/bin/sqlt-dumper @@ -3,7 +3,7 @@ # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -62,9 +62,6 @@ use Getopt::Long; use SQL::Translator; use File::Basename qw(basename); -use vars '$VERSION'; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - my ( $help, $db, $skip, $skiplike, $db_user, $db_pass, $dsn ); GetOptions( 'h|help' => \$help, diff --git a/bin/sqlt-graph b/bin/sqlt-graph index 2565bda..c1ebe38 100755 --- a/bin/sqlt-graph +++ b/bin/sqlt-graph @@ -3,7 +3,7 @@ # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -98,9 +98,6 @@ use GraphViz; use Pod::Usage; use SQL::Translator; -use vars '$VERSION'; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - # # Get arguments. # diff --git a/bin/sqlt.cgi b/bin/sqlt.cgi index cd2410a..c6d89fe 100755 --- a/bin/sqlt.cgi +++ b/bin/sqlt.cgi @@ -3,7 +3,7 @@ # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -38,9 +38,6 @@ use strict; use CGI; use SQL::Translator; -use vars '$VERSION'; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - my $q = CGI->new; eval { @@ -551,6 +548,7 @@ Ken Y. Clark Ekclark@cpan.orgE. =head1 SEE ALSO -perl, SQL::Translator. +L, +L =cut diff --git a/lib/SQL/Translator.pm b/lib/SQL/Translator.pm index 5d20d78..0a0808a 100644 --- a/lib/SQL/Translator.pm +++ b/lib/SQL/Translator.pm @@ -3,7 +3,7 @@ package SQL::Translator; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 The SQLFairy Authors +# Copyright (C) 2002-2009 The 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 @@ -21,13 +21,12 @@ package SQL::Translator; # ------------------------------------------------------------------- use strict; -use vars qw( $VERSION $REVISION $DEFAULT_SUB $DEBUG $ERROR ); +use vars qw( $VERSION $DEFAULT_SUB $DEBUG $ERROR ); use base 'Class::Base'; require 5.004; $VERSION = '0.09002'; -$REVISION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; $ERROR = ""; diff --git a/lib/SQL/Translator/Filter/DefaultExtra.pm b/lib/SQL/Translator/Filter/DefaultExtra.pm index 6449ac6..b295426 100644 --- a/lib/SQL/Translator/Filter/DefaultExtra.pm +++ b/lib/SQL/Translator/Filter/DefaultExtra.pm @@ -3,7 +3,7 @@ package SQL::Translator::Filter::DefaultExtra; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 diff --git a/lib/SQL/Translator/Filter/Globals.pm b/lib/SQL/Translator/Filter/Globals.pm index f02ad42..3c6902d 100644 --- a/lib/SQL/Translator/Filter/Globals.pm +++ b/lib/SQL/Translator/Filter/Globals.pm @@ -3,7 +3,7 @@ package SQL::Translator::Filter::Globals; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 diff --git a/lib/SQL/Translator/Filter/Names.pm b/lib/SQL/Translator/Filter/Names.pm index 373485f..dee345c 100644 --- a/lib/SQL/Translator/Filter/Names.pm +++ b/lib/SQL/Translator/Filter/Names.pm @@ -3,7 +3,7 @@ package SQL::Translator::Filter::Names; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 diff --git a/lib/SQL/Translator/Parser.pm b/lib/SQL/Translator/Parser.pm index ecc68e8..eb62b0a 100644 --- a/lib/SQL/Translator/Parser.pm +++ b/lib/SQL/Translator/Parser.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -21,8 +21,6 @@ package SQL::Translator::Parser; # ---------------------------------------------------------------------- use strict; -use vars qw( $VERSION ); -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; sub parse { "" } diff --git a/lib/SQL/Translator/Parser/Access.pm b/lib/SQL/Translator/Parser/Access.pm index 58b76b6..483ba1d 100644 --- a/lib/SQL/Translator/Parser/Access.pm +++ b/lib/SQL/Translator/Parser/Access.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::Access; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -40,8 +40,7 @@ something similar to the output of mdbtools (http://mdbtools.sourceforge.net/). =cut use strict; -use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG $GRAMMAR @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; use Data::Dumper; diff --git a/lib/SQL/Translator/Parser/DBI.pm b/lib/SQL/Translator/Parser/DBI.pm index cdd75c3..bd80669 100644 --- a/lib/SQL/Translator/Parser/DBI.pm +++ b/lib/SQL/Translator/Parser/DBI.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::DBI; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -120,8 +120,7 @@ query Oracle directly and skip the parsing of a text file, too. use strict; use DBI; -use vars qw($VERSION @EXPORT); -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw(@EXPORT); use constant DRIVERS => { mysql => 'MySQL', diff --git a/lib/SQL/Translator/Parser/DBI/DB2.pm b/lib/SQL/Translator/Parser/DBI/DB2.pm index 9765586..8ed1ff6 100644 --- a/lib/SQL/Translator/Parser/DBI/DB2.pm +++ b/lib/SQL/Translator/Parser/DBI/DB2.pm @@ -21,8 +21,7 @@ use Data::Dumper; use SQL::Translator::Parser::DB2; use SQL::Translator::Schema::Constants; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -# $VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; # ------------------------------------------------------------------- diff --git a/lib/SQL/Translator/Parser/DBI/MySQL.pm b/lib/SQL/Translator/Parser/DBI/MySQL.pm index 0194da0..f575a5f 100644 --- a/lib/SQL/Translator/Parser/DBI/MySQL.pm +++ b/lib/SQL/Translator/Parser/DBI/MySQL.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::DBI::MySQL; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -42,8 +42,7 @@ use Data::Dumper; use SQL::Translator::Schema::Constants; use SQL::Translator::Parser::MySQL; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; # ------------------------------------------------------------------- diff --git a/lib/SQL/Translator/Parser/DBI/Oracle.pm b/lib/SQL/Translator/Parser/DBI/Oracle.pm index 60d9469..c68e8bb 100644 --- a/lib/SQL/Translator/Parser/DBI/Oracle.pm +++ b/lib/SQL/Translator/Parser/DBI/Oracle.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::DBI::Oracle; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2006 SQLFairy Authors +# Copyright (C) 2006-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 @@ -42,8 +42,6 @@ use SQL::Translator::Schema::Table; use SQL::Translator::Schema::Field; use SQL::Translator::Schema::Constraint; -our $VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - # ------------------------------------------------------------------- sub parse { my ( $tr, $dbh ) = @_; diff --git a/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm b/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm index f1c21f5..47d711d 100644 --- a/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm +++ b/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::DBI::PostgreSQL; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -39,8 +39,7 @@ use DBI; use Data::Dumper; use SQL::Translator::Schema::Constants; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; # ------------------------------------------------------------------- diff --git a/lib/SQL/Translator/Parser/DBI/SQLServer.pm b/lib/SQL/Translator/Parser/DBI/SQLServer.pm index bd67a43..2bf999a 100644 --- a/lib/SQL/Translator/Parser/DBI/SQLServer.pm +++ b/lib/SQL/Translator/Parser/DBI/SQLServer.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::DBI::SQLServer; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -39,8 +39,7 @@ use DBI; use SQL::Translator::Schema; use Data::Dumper; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; no strict 'refs'; diff --git a/lib/SQL/Translator/Parser/DBI/SQLite.pm b/lib/SQL/Translator/Parser/DBI/SQLite.pm index 84ad63c..1bae0bc 100644 --- a/lib/SQL/Translator/Parser/DBI/SQLite.pm +++ b/lib/SQL/Translator/Parser/DBI/SQLite.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::DBI::SQLite; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -44,8 +44,7 @@ use DBI; use SQL::Translator::Parser::SQLite; use Data::Dumper; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; # ------------------------------------------------------------------- diff --git a/lib/SQL/Translator/Parser/DBI/Sybase.pm b/lib/SQL/Translator/Parser/DBI/Sybase.pm index 572f12c..b87b2b3 100644 --- a/lib/SQL/Translator/Parser/DBI/Sybase.pm +++ b/lib/SQL/Translator/Parser/DBI/Sybase.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::DBI::Sybase; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -39,8 +39,7 @@ use DBI; use SQL::Translator::Schema; use Data::Dumper; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; no strict 'refs'; diff --git a/lib/SQL/Translator/Parser/Excel.pm b/lib/SQL/Translator/Parser/Excel.pm index f428078..0c9fcd4 100644 --- a/lib/SQL/Translator/Parser/Excel.pm +++ b/lib/SQL/Translator/Parser/Excel.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::Excel; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -49,9 +49,8 @@ and field sizes. True by default. =cut use strict; -use vars qw($DEBUG $VERSION @EXPORT_OK); +use vars qw($DEBUG @EXPORT_OK); $DEBUG = 0 unless defined $DEBUG; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; use Spreadsheet::ParseExcel; use Exporter; diff --git a/lib/SQL/Translator/Parser/MySQL.pm b/lib/SQL/Translator/Parser/MySQL.pm index 279cd1b..4955d02 100644 --- a/lib/SQL/Translator/Parser/MySQL.pm +++ b/lib/SQL/Translator/Parser/MySQL.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::MySQL; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -148,8 +148,7 @@ More information about the MySQL comment-syntax: Lkclark@cpan.orgE. # ------------------------------------------------------------------- use strict; -use vars qw[ $VERSION $DEBUG ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG ]; $DEBUG = 1 unless defined $DEBUG; use SQL::Translator::Parser::XML::SQLFairy; diff --git a/lib/SQL/Translator/Parser/XML/SQLFairy.pm b/lib/SQL/Translator/Parser/XML/SQLFairy.pm index 607ba52..1bd58d3 100644 --- a/lib/SQL/Translator/Parser/XML/SQLFairy.pm +++ b/lib/SQL/Translator/Parser/XML/SQLFairy.pm @@ -99,8 +99,7 @@ To convert your old format files simply pass them through the translator :) use strict; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; use Data::Dumper; diff --git a/lib/SQL/Translator/Parser/XML/XMI.pm b/lib/SQL/Translator/Parser/XML/XMI.pm index a6882a0..b70ce8f 100644 --- a/lib/SQL/Translator/Parser/XML/XMI.pm +++ b/lib/SQL/Translator/Parser/XML/XMI.pm @@ -29,8 +29,6 @@ Class diagrams stored in XMI format. use strict; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; use Data::Dumper; diff --git a/lib/SQL/Translator/Parser/XML/XMI/Rational.pm b/lib/SQL/Translator/Parser/XML/XMI/Rational.pm index a5afadd..16fc049 100644 --- a/lib/SQL/Translator/Parser/XML/XMI/Rational.pm +++ b/lib/SQL/Translator/Parser/XML/XMI/Rational.pm @@ -29,8 +29,7 @@ Data Modeling Profile. use strict; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; use Exporter; use base qw(Exporter); diff --git a/lib/SQL/Translator/Parser/XML/XMI/SQLFairy.pm b/lib/SQL/Translator/Parser/XML/XMI/SQLFairy.pm index d66b42c..9540f61 100644 --- a/lib/SQL/Translator/Parser/XML/XMI/SQLFairy.pm +++ b/lib/SQL/Translator/Parser/XML/XMI/SQLFairy.pm @@ -28,8 +28,7 @@ SQL::Translator::Parser::XML::XMI::SQLFairy - Create Schema from UML Models. use strict; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; use Exporter; use base qw(Exporter); diff --git a/lib/SQL/Translator/Parser/YAML.pm b/lib/SQL/Translator/Parser/YAML.pm index e707f3a..f1faf18 100644 --- a/lib/SQL/Translator/Parser/YAML.pm +++ b/lib/SQL/Translator/Parser/YAML.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::YAML; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -21,8 +21,6 @@ package SQL::Translator::Parser::YAML; # ------------------------------------------------------------------- use strict; -use vars qw($VERSION); -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; use SQL::Translator::Schema; use SQL::Translator::Utils qw(header_comment); diff --git a/lib/SQL/Translator/Parser/xSV.pm b/lib/SQL/Translator/Parser/xSV.pm index 0bade64..977c1f7 100644 --- a/lib/SQL/Translator/Parser/xSV.pm +++ b/lib/SQL/Translator/Parser/xSV.pm @@ -3,7 +3,7 @@ package SQL::Translator::Parser::xSV; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -66,8 +66,7 @@ C. # ------------------------------------------------------------------- use strict; -use vars qw($VERSION @EXPORT); -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw(@EXPORT); use Exporter; use Text::ParseWords qw(quotewords); diff --git a/lib/SQL/Translator/Producer.pm b/lib/SQL/Translator/Producer.pm index a7081c0..125c410 100644 --- a/lib/SQL/Translator/Producer.pm +++ b/lib/SQL/Translator/Producer.pm @@ -21,8 +21,6 @@ package SQL::Translator::Producer; # ------------------------------------------------------------------- use strict; -use vars qw($VERSION); -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; sub produce { "" } diff --git a/lib/SQL/Translator/Producer/ClassDBI.pm b/lib/SQL/Translator/Producer/ClassDBI.pm index 9c00882..d225d80 100755 --- a/lib/SQL/Translator/Producer/ClassDBI.pm +++ b/lib/SQL/Translator/Producer/ClassDBI.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::ClassDBI; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -21,8 +21,7 @@ package SQL::Translator::Producer::ClassDBI; # ------------------------------------------------------------------- use strict; -use vars qw[ $VERSION $DEBUG ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG ]; $DEBUG = 1 unless defined $DEBUG; use SQL::Translator::Schema::Constants; diff --git a/lib/SQL/Translator/Producer/DB2.pm b/lib/SQL/Translator/Producer/DB2.pm index c728ae5..9cb6868 100644 --- a/lib/SQL/Translator/Producer/DB2.pm +++ b/lib/SQL/Translator/Producer/DB2.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::DB2; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -38,8 +38,7 @@ Creates an SQL DDL suitable for DB2. use warnings; use strict; -use vars qw[ $VERSION $DEBUG $WARN ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG $WARN ]; $DEBUG = 0 unless defined $DEBUG; use SQL::Translator::Schema::Constants; diff --git a/lib/SQL/Translator/Producer/DiaUml.pm b/lib/SQL/Translator/Producer/DiaUml.pm index 1a4e7b5..569ad47 100644 --- a/lib/SQL/Translator/Producer/DiaUml.pm +++ b/lib/SQL/Translator/Producer/DiaUml.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::DiaUml; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -58,8 +58,7 @@ automatically arrange them horizontally or vertically. use strict; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; use SQL::Translator::Utils 'debug'; diff --git a/lib/SQL/Translator/Producer/Diagram.pm b/lib/SQL/Translator/Producer/Diagram.pm index 3076687..cb18246 100644 --- a/lib/SQL/Translator/Producer/Diagram.pm +++ b/lib/SQL/Translator/Producer/Diagram.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::Diagram; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -41,8 +41,7 @@ use Data::Dumper; use SQL::Translator::Schema::Constants; use SQL::Translator::Utils qw(debug); -use vars qw[ $VERSION $DEBUG ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG ]; $DEBUG = 0 unless defined $DEBUG; use constant VALID_FONT_SIZE => { diff --git a/lib/SQL/Translator/Producer/Dumper.pm b/lib/SQL/Translator/Producer/Dumper.pm index f18cd5d..9665093 100644 --- a/lib/SQL/Translator/Producer/Dumper.pm +++ b/lib/SQL/Translator/Producer/Dumper.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::Dumper; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-6 SQLFairy Authors +# Copyright (C) 2002-2006 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 @@ -57,12 +57,9 @@ use Config; use SQL::Translator; use File::Temp 'tempfile'; use Template; -use vars qw($VERSION); use Data::Dumper; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - sub produce { my $t = shift; my $args = $t->producer_args; diff --git a/lib/SQL/Translator/Producer/HTML.pm b/lib/SQL/Translator/Producer/HTML.pm index 87c399d..14ab7d5 100644 --- a/lib/SQL/Translator/Producer/HTML.pm +++ b/lib/SQL/Translator/Producer/HTML.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::HTML; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -22,9 +22,8 @@ package SQL::Translator::Producer::HTML; use strict; use Data::Dumper; -use vars qw($VERSION $NOWRAP $NOLINKTABLE $NAME); +use vars qw($NOWRAP $NOLINKTABLE $NAME); -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; $NAME = join ', ', __PACKAGE__, $VERSION; $NOWRAP = 0 unless defined $NOWRAP; $NOLINKTABLE = 0 unless defined $NOLINKTABLE; diff --git a/lib/SQL/Translator/Producer/Latex.pm b/lib/SQL/Translator/Producer/Latex.pm index 612df73..dd4650c 100644 --- a/lib/SQL/Translator/Producer/Latex.pm +++ b/lib/SQL/Translator/Producer/Latex.pm @@ -58,8 +58,7 @@ automatically arrange them horizontally or vertically. use strict; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; use SQL::Translator::Utils 'debug'; diff --git a/lib/SQL/Translator/Producer/MySQL.pm b/lib/SQL/Translator/Producer/MySQL.pm index 2dc106d..d370be4 100644 --- a/lib/SQL/Translator/Producer/MySQL.pm +++ b/lib/SQL/Translator/Producer/MySQL.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::MySQL; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -101,8 +101,7 @@ Set the fields charater set and collation order. use strict; use warnings; -use vars qw[ $VERSION $DEBUG %used_names ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG %used_names ]; $DEBUG = 0 unless defined $DEBUG; # Maximum length for most identifiers is 64, according to: diff --git a/lib/SQL/Translator/Producer/Oracle.pm b/lib/SQL/Translator/Producer/Oracle.pm index ada53bd..bda75f7 100644 --- a/lib/SQL/Translator/Producer/Oracle.pm +++ b/lib/SQL/Translator/Producer/Oracle.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::Oracle; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -99,8 +99,7 @@ context the slash will be still there to ensure compatibility with SQLPlus. =cut use strict; -use vars qw[ $VERSION $DEBUG $WARN ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG $WARN ]; $DEBUG = 0 unless defined $DEBUG; use SQL::Translator::Schema::Constants; diff --git a/lib/SQL/Translator/Producer/POD.pm b/lib/SQL/Translator/Producer/POD.pm index c17a342..cfbf5cd 100644 --- a/lib/SQL/Translator/Producer/POD.pm +++ b/lib/SQL/Translator/Producer/POD.pm @@ -41,8 +41,6 @@ interesting formats using Pod::POM or Template::Toolkit's POD plugin. =cut use strict; -use vars qw[ $VERSION ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; use SQL::Translator::Schema::Constants; use SQL::Translator::Utils qw(header_comment); diff --git a/lib/SQL/Translator/Producer/PostgreSQL.pm b/lib/SQL/Translator/Producer/PostgreSQL.pm index e6f816b..98272eb 100644 --- a/lib/SQL/Translator/Producer/PostgreSQL.pm +++ b/lib/SQL/Translator/Producer/PostgreSQL.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::PostgreSQL; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -38,8 +38,7 @@ producer. use strict; use warnings; -use vars qw[ $DEBUG $WARN $VERSION %used_names ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG $WARN %used_names ]; $DEBUG = 0 unless defined $DEBUG; use base qw(SQL::Translator::Producer); diff --git a/lib/SQL/Translator/Producer/SQLServer.pm b/lib/SQL/Translator/Producer/SQLServer.pm index d85ff96..b200908 100644 --- a/lib/SQL/Translator/Producer/SQLServer.pm +++ b/lib/SQL/Translator/Producer/SQLServer.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::SQLServer; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -55,8 +55,7 @@ List of values for an enum field. =cut use strict; -use vars qw[ $DEBUG $WARN $VERSION ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG $WARN ]; $DEBUG = 1 unless defined $DEBUG; use Data::Dumper; diff --git a/lib/SQL/Translator/Producer/SQLite.pm b/lib/SQL/Translator/Producer/SQLite.pm index 377dab4..455c5bc 100644 --- a/lib/SQL/Translator/Producer/SQLite.pm +++ b/lib/SQL/Translator/Producer/SQLite.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::SQLite; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -42,9 +42,8 @@ use Data::Dumper; use SQL::Translator::Schema::Constants; use SQL::Translator::Utils qw(debug header_comment); -use vars qw[ $VERSION $DEBUG $WARN ]; +use vars qw[ $DEBUG $WARN ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; $WARN = 0 unless defined $WARN; diff --git a/lib/SQL/Translator/Producer/Storable.pm b/lib/SQL/Translator/Producer/Storable.pm index 14810b6..2e9cb22 100755 --- a/lib/SQL/Translator/Producer/Storable.pm +++ b/lib/SQL/Translator/Producer/Storable.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::Storable; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -41,9 +41,8 @@ takes a long time. =cut use strict; -use vars qw($DEBUG $VERSION @EXPORT_OK); +use vars qw($DEBUG @EXPORT_OK); $DEBUG = 0 unless defined $DEBUG; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; use Storable; use Exporter; diff --git a/lib/SQL/Translator/Producer/Sybase.pm b/lib/SQL/Translator/Producer/Sybase.pm index 82d1362..798cf56 100644 --- a/lib/SQL/Translator/Producer/Sybase.pm +++ b/lib/SQL/Translator/Producer/Sybase.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::Sybase; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -38,8 +38,7 @@ This module will produce text output of the schema suitable for Sybase. =cut use strict; -use vars qw[ $DEBUG $WARN $VERSION ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG $WARN ]; $DEBUG = 1 unless defined $DEBUG; use Data::Dumper; diff --git a/lib/SQL/Translator/Producer/TT/Base.pm b/lib/SQL/Translator/Producer/TT/Base.pm index ae5b3c7..c7b239c 100644 --- a/lib/SQL/Translator/Producer/TT/Base.pm +++ b/lib/SQL/Translator/Producer/TT/Base.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::TT::Base; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -31,8 +31,7 @@ class. use strict; -use vars qw[ $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ @EXPORT_OK ]; use Template; use Data::Dumper; diff --git a/lib/SQL/Translator/Producer/TT/Table.pm b/lib/SQL/Translator/Producer/TT/Table.pm index c49cb52..63b0239 100644 --- a/lib/SQL/Translator/Producer/TT/Table.pm +++ b/lib/SQL/Translator/Producer/TT/Table.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::TT::Table; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -177,8 +177,7 @@ whitespace either side, to be recognised. use strict; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; use File::Path; diff --git a/lib/SQL/Translator/Producer/TTSchema.pm b/lib/SQL/Translator/Producer/TTSchema.pm index 38cd3e3..50f54c9 100644 --- a/lib/SQL/Translator/Producer/TTSchema.pm +++ b/lib/SQL/Translator/Producer/TTSchema.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::TTSchema; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -128,8 +128,7 @@ constructor. use strict; -use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG @EXPORT_OK ]; $DEBUG = 0 unless defined $DEBUG; use Template; diff --git a/lib/SQL/Translator/Producer/XML.pm b/lib/SQL/Translator/Producer/XML.pm index ce60e65..dc574cd 100644 --- a/lib/SQL/Translator/Producer/XML.pm +++ b/lib/SQL/Translator/Producer/XML.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::XML; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -45,8 +45,7 @@ Ken Y. Clark Ekclark@cpan.orgE. # ------------------------------------------------------------------- use strict; -use vars qw[ $VERSION $DEBUG ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $DEBUG ]; $DEBUG = 1 unless defined $DEBUG; use SQL::Translator::Producer::XML::SQLFairy; diff --git a/lib/SQL/Translator/Producer/XML/SQLFairy.pm b/lib/SQL/Translator/Producer/XML/SQLFairy.pm index 0bdbe23..8b9247a 100644 --- a/lib/SQL/Translator/Producer/XML/SQLFairy.pm +++ b/lib/SQL/Translator/Producer/XML/SQLFairy.pm @@ -164,8 +164,7 @@ To convert your old format files simply pass them through the translator :) =cut use strict; -use vars qw[ $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ @EXPORT_OK ]; use Exporter; use base qw(Exporter); diff --git a/lib/SQL/Translator/Producer/YAML.pm b/lib/SQL/Translator/Producer/YAML.pm index 6156e25..74a7539 100644 --- a/lib/SQL/Translator/Producer/YAML.pm +++ b/lib/SQL/Translator/Producer/YAML.pm @@ -3,7 +3,7 @@ package SQL::Translator::Producer::YAML; # ------------------------------------------------------------------- # $Id$ # ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -40,8 +40,6 @@ takes a long time. =cut use strict; -use vars qw($VERSION); -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; use YAML qw(Dump); diff --git a/lib/SQL/Translator/Schema.pm b/lib/SQL/Translator/Schema.pm index 2bd7072..522d748 100644 --- a/lib/SQL/Translator/Schema.pm +++ b/lib/SQL/Translator/Schema.pm @@ -1,11 +1,9 @@ package SQL::Translator::Schema; -# vim: sw=4: ts=4: - # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -58,9 +56,7 @@ use SQL::Translator::Schema::View; use SQL::Translator::Utils 'parse_list_arg'; use base 'SQL::Translator::Schema::Object'; -use vars qw[ $VERSION $TABLE_ORDER $VIEW_ORDER $TRIGGER_ORDER $PROC_ORDER ]; - -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw[ $TABLE_ORDER $VIEW_ORDER $TRIGGER_ORDER $PROC_ORDER ]; __PACKAGE__->_attributes(qw/name database translator/); diff --git a/lib/SQL/Translator/Schema/Constants.pm b/lib/SQL/Translator/Schema/Constants.pm index 4f02250..fa2ded8 100644 --- a/lib/SQL/Translator/Schema/Constants.pm +++ b/lib/SQL/Translator/Schema/Constants.pm @@ -3,7 +3,7 @@ package SQL::Translator::Schema::Constants; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -61,9 +61,8 @@ This module exports the following constants for Schema features; use strict; use base qw( Exporter ); -use vars qw( @EXPORT $VERSION ); +use vars qw( @EXPORT ); require Exporter; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; @EXPORT = qw[ CHECK_C diff --git a/lib/SQL/Translator/Schema/Constraint.pm b/lib/SQL/Translator/Schema/Constraint.pm index 528b511..1e97532 100644 --- a/lib/SQL/Translator/Schema/Constraint.pm +++ b/lib/SQL/Translator/Schema/Constraint.pm @@ -3,7 +3,7 @@ package SQL::Translator::Schema::Constraint; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -49,9 +49,7 @@ 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$ =~ /(\d+)\.(\d+)/; +use vars qw($TABLE_COUNT $VIEW_COUNT); my %VALID_CONSTRAINT_TYPE = ( PRIMARY_KEY, 1, diff --git a/lib/SQL/Translator/Schema/Field.pm b/lib/SQL/Translator/Schema/Field.pm index afb6906..87bddb4 100644 --- a/lib/SQL/Translator/Schema/Field.pm +++ b/lib/SQL/Translator/Schema/Field.pm @@ -3,7 +3,7 @@ package SQL::Translator::Schema::Field; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -48,9 +48,7 @@ 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$ =~ /(\d+)\.(\d+)/; +use vars qw($TABLE_COUNT $VIEW_COUNT); # Stringify to our name, being careful not to pass any args through so we don't # accidentally set it to undef. We also have to tweak bool so the object is diff --git a/lib/SQL/Translator/Schema/Graph.pm b/lib/SQL/Translator/Schema/Graph.pm index abcf973..c3f61a7 100644 --- a/lib/SQL/Translator/Schema/Graph.pm +++ b/lib/SQL/Translator/Schema/Graph.pm @@ -22,8 +22,8 @@ use constant HyperEdge => 'SQL::Translator::Schema::Graph::HyperEdge'; use Class::MakeMethods::Template::Hash ( 'new --and_then_init' => 'new', object => [ - 'translator' => {class => 'SQL::Translator'}, - ], + 'translator' => {class => 'SQL::Translator'}, + ], 'hash' => [ qw( node ) ], 'number --counter' => [ qw( order ) ], ); diff --git a/lib/SQL/Translator/Schema/Index.pm b/lib/SQL/Translator/Schema/Index.pm index 4186d85..e952cda 100644 --- a/lib/SQL/Translator/Schema/Index.pm +++ b/lib/SQL/Translator/Schema/Index.pm @@ -3,7 +3,7 @@ package SQL::Translator::Schema::Index; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -51,9 +51,7 @@ 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$ =~ /(\d+)\.(\d+)/; +use vars qw($TABLE_COUNT $VIEW_COUNT); my %VALID_INDEX_TYPE = ( UNIQUE => 1, diff --git a/lib/SQL/Translator/Schema/Object.pm b/lib/SQL/Translator/Schema/Object.pm index 7266f2d..5a9761a 100644 --- a/lib/SQL/Translator/Schema/Object.pm +++ b/lib/SQL/Translator/Schema/Object.pm @@ -3,7 +3,7 @@ package SQL::Translator::Schema::Object; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -41,11 +41,6 @@ use base 'Class::Data::Inheritable'; use base 'Class::Base'; use Class::MakeMethods::Utility::Ref qw( ref_compare ); -use vars qw[ $VERSION ]; - -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - - =head1 Construction Derived classes should declare their attributes using the C<_attributes> diff --git a/lib/SQL/Translator/Schema/Procedure.pm b/lib/SQL/Translator/Schema/Procedure.pm index 3047771..2007728 100644 --- a/lib/SQL/Translator/Schema/Procedure.pm +++ b/lib/SQL/Translator/Schema/Procedure.pm @@ -3,7 +3,7 @@ package SQL::Translator::Schema::Procedure; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -52,10 +52,6 @@ use SQL::Translator::Utils 'parse_list_arg'; use base 'SQL::Translator::Schema::Object'; -use vars qw($VERSION); - -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; - # ---------------------------------------------------------------------- __PACKAGE__->_attributes( qw/ diff --git a/lib/SQL/Translator/Schema/Table.pm b/lib/SQL/Translator/Schema/Table.pm index 50a1855..2b73be9 100644 --- a/lib/SQL/Translator/Schema/Table.pm +++ b/lib/SQL/Translator/Schema/Table.pm @@ -3,7 +3,7 @@ package SQL::Translator::Schema::Table; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -49,9 +49,7 @@ use Data::Dumper; use base 'SQL::Translator::Schema::Object'; -use vars qw( $VERSION $FIELD_ORDER ); - -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; +use vars qw( $FIELD_ORDER ); # Stringify to our name, being careful not to pass any args through so we don't # accidentally set it to undef. We also have to tweak bool so the object is diff --git a/lib/SQL/Translator/Schema/Trigger.pm b/lib/SQL/Translator/Schema/Trigger.pm index 5d526f2..0091163 100644 --- a/lib/SQL/Translator/Schema/Trigger.pm +++ b/lib/SQL/Translator/Schema/Trigger.pm @@ -3,7 +3,7 @@ package SQL::Translator::Schema::Trigger; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -53,9 +53,7 @@ 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$ =~ /(\d+)\.(\d+)/; +use vars qw($TABLE_COUNT $VIEW_COUNT); # ---------------------------------------------------------------------- diff --git a/lib/SQL/Translator/Schema/View.pm b/lib/SQL/Translator/Schema/View.pm index 7c9d125..8667f04 100644 --- a/lib/SQL/Translator/Schema/View.pm +++ b/lib/SQL/Translator/Schema/View.pm @@ -3,7 +3,7 @@ package SQL::Translator::Schema::View; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -48,9 +48,7 @@ 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$ =~ /(\d+)\.(\d+)/; +use vars qw($TABLE_COUNT $VIEW_COUNT); # ---------------------------------------------------------------------- diff --git a/lib/SQL/Translator/Shell.pm b/lib/SQL/Translator/Shell.pm index 155f709..5f43905 100644 --- a/lib/SQL/Translator/Shell.pm +++ b/lib/SQL/Translator/Shell.pm @@ -8,7 +8,7 @@ package SQL::Translator::Shell; # ---------------------------------------------------------------------- use strict; -use vars qw($VERSION $REVISION $DEBUG); +use vars qw($DEBUG); 1; diff --git a/lib/SQL/Translator/Utils.pm b/lib/SQL/Translator/Utils.pm index 6e921c0..53d8fc8 100644 --- a/lib/SQL/Translator/Utils.pm +++ b/lib/SQL/Translator/Utils.pm @@ -3,7 +3,7 @@ package SQL::Translator::Utils; # ---------------------------------------------------------------------- # $Id$ # ---------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# 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 @@ -22,13 +22,12 @@ package SQL::Translator::Utils; use strict; use base qw(Exporter); -use vars qw($VERSION $DEFAULT_COMMENT @EXPORT_OK); +use vars qw($DEFAULT_COMMENT @EXPORT_OK); use Digest::SHA1 qw( sha1_hex ); use Exporter; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; $DEFAULT_COMMENT = '-- '; @EXPORT_OK = qw( debug normalize_name header_comment parse_list_arg truncate_id_uniquely $DEFAULT_COMMENT parse_mysql_version diff --git a/lib/SQL/Translator/XMI/Parser.pm b/lib/SQL/Translator/XMI/Parser.pm index 1db33cf..57c00be 100644 --- a/lib/SQL/Translator/XMI/Parser.pm +++ b/lib/SQL/Translator/XMI/Parser.pm @@ -31,8 +31,6 @@ parser. use strict; use 5.006_001; -use vars qw/$VERSION/; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; use Data::Dumper; use XML::XPath; diff --git a/lib/SQL/Translator/XMI/Parser/V10.pm b/lib/SQL/Translator/XMI/Parser/V10.pm index 22ff92f..a168d9d 100644 --- a/lib/SQL/Translator/XMI/Parser/V10.pm +++ b/lib/SQL/Translator/XMI/Parser/V10.pm @@ -30,8 +30,6 @@ SQL::Translator::XMI::Parser::V10 - Version 1.0 parser. use strict; use 5.006_001; -use vars qw/$VERSION/; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; use base qw(SQL::Translator::XMI::Parser); diff --git a/lib/SQL/Translator/XMI/Parser/V12.pm b/lib/SQL/Translator/XMI/Parser/V12.pm index 4b1f7eb..634b07b 100644 --- a/lib/SQL/Translator/XMI/Parser/V12.pm +++ b/lib/SQL/Translator/XMI/Parser/V12.pm @@ -30,8 +30,6 @@ SQL::Translator::XMI::Parser::V12 - Version 1.2 parser. use strict; use 5.006_001; -use vars qw/$VERSION/; -$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/; use base qw(SQL::Translator::XMI::Parser);