X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FProducer%2FDiaUml.pm;h=2f66a3f9f1f5f99657df87e3abbbd57a31baa85f;hb=935800450f88b0500c4fa7c3b174cd22b5f9eb56;hp=2cbf7a425b7b767b8ef747c165a632c7f7696452;hpb=35a1938f8bf01e2941aa3c9f978ba0007a4b2503;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Producer/DiaUml.pm b/lib/SQL/Translator/Producer/DiaUml.pm index 2cbf7a4..2f66a3f 100644 --- a/lib/SQL/Translator/Producer/DiaUml.pm +++ b/lib/SQL/Translator/Producer/DiaUml.pm @@ -1,25 +1,5 @@ package SQL::Translator::Producer::DiaUml; -# ------------------------------------------------------------------- -# $Id: DiaUml.pm,v 1.1 2006-01-20 16:17:21 grommit 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 @@ -59,18 +39,18 @@ automatically arrange them horizontally or vertically. use strict; use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/; +$VERSION = '1.59'; $DEBUG = 0 unless defined $DEBUG; +use File::ShareDir qw/dist_dir/; + use SQL::Translator::Utils 'debug'; -use SQL::Translator::ConfigData; 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; }; -# Add the installed templates to the inc path. sub tt_config { - ( INCLUDE_PATH => SQL::Translator::ConfigData->config('template_dir')."/dia_uml" ); + ( INCLUDE_PATH => File::Spec->catdir (dist_dir('SQL-Translator'), 'DiaUml') ); } sub tt_schema { 'schema.tt2' }