Release commit for 1.62

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Producer / DiaUml.pm

diff --git a/lib/SQL/Translator/Producer/DiaUml.pm b/lib/SQL/Translator/Producer/DiaUml.pm
index 1a4e7b5..6cffc5c 100644 (file)
--- a/lib/SQL/Translator/Producer/DiaUml.pm
+++ b/lib/SQL/Translator/Producer/DiaUml.pm
@@ -1,25 +1,5 @@
 package SQL::Translator::Producer::DiaUml;
 
-# -------------------------------------------------------------------
-# $Id$
-# -------------------------------------------------------------------
-# 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
@@ -42,45 +22,36 @@ SQL::Translator::Producer::DiaUml -
 Currently you will get one class (with the a table
 stereotype) generated per table in the schema. The fields are added as
 attributes of the classes and their datatypes set. It doesn't currently set any
-of the relationships. It doesn't do any layout, all the classses are in one big
+of the relationships. It doesn't do any layout, all the classes are in one big
 stack. However it is still useful as you can use the layout tools in Dia to
 automatically arrange them horizontally or vertically.
 
 =head2 Producer Args
 
-=over 4
-
-=back
-
 =cut
 
-# -------------------------------------------------------------------
-
 use strict;
+use warnings;
 
-use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/;
+our ( $DEBUG, @EXPORT_OK );
+our $VERSION = '1.62';
 $DEBUG   = 0 unless defined $DEBUG;
 
+use File::ShareDir qw/dist_dir/;
+
 use SQL::Translator::Utils 'debug';
 use base qw/SQL::Translator::Producer::TT::Base/;
 # Convert produce call into a method call on our class
 sub produce { return __PACKAGE__->new( translator => shift )->run; };
 
-# Uses dir in lib with this mods name as the template dir
-my $_TEMPLATE_DIR = __FILE__;
-$_TEMPLATE_DIR =~ s/\.pm$//;
-
 sub tt_config {
-    ( INCLUDE_PATH => $_TEMPLATE_DIR );
+    ( INCLUDE_PATH => File::Spec->catdir (dist_dir('SQL-Translator'), 'DiaUml') );
 }
 
 sub tt_schema { 'schema.tt2' }
 
 1;
 
-# -------------------------------------------------------------------
-
 =pod
 
 =head1 AUTHOR
@@ -89,7 +60,7 @@ Mark Addison E<lt>grommit@users.sourceforge.netE<gt>.
 
 =head1 TODO
 
-* Add the foriegn keys from the schema as UML relations.
+* Add the foreign keys from the schema as UML relations.
 
 * Layout the classes.