From: Darren Chamberlain Date: Thu, 4 Mar 2004 14:39:15 +0000 (+0000) Subject: POD update. X-Git-Tag: v0.06~157 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f61e9f29e7135f22c7de55b4ef8ca4725166a26;p=dbsrgits%2FSQL-Translator.git POD update. --- diff --git a/lib/SQL/Translator/Producer/Diagram.pm b/lib/SQL/Translator/Producer/Diagram.pm index 3c2cad4..c23633b 100644 --- a/lib/SQL/Translator/Producer/Diagram.pm +++ b/lib/SQL/Translator/Producer/Diagram.pm @@ -1,7 +1,7 @@ package SQL::Translator::Producer::Diagram; # ------------------------------------------------------------------- -# $Id: Diagram.pm,v 1.10 2004-02-11 21:30:19 kycl4rk Exp $ +# $Id: Diagram.pm,v 1.11 2004-03-04 14:39:15 dlc Exp $ # ------------------------------------------------------------------- # Copyright (C) 2002-4 SQLFairy Authors # @@ -30,18 +30,9 @@ Use via SQL::Translator: use SQL::Translator; - my $t = SQL::Translator->new( parser => 'MySQL', '...' ); + my $t = SQL::Translator->new( producer => 'Diagram', '...' ); $t->translate; -Or use more directly: - - use SQL::Translator; - use SQL::Translator::MySQL 'parse'; - - my $t = SQL::Translator->new( filename => '...' );; - parse( $t, - - =cut use strict; @@ -51,7 +42,7 @@ use SQL::Translator::Schema::Constants; use SQL::Translator::Utils qw(debug); use vars qw[ $VERSION $DEBUG ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.10 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; use constant VALID_FONT_SIZE => {