From: Mark Addison Date: Tue, 23 Mar 2004 21:45:19 +0000 (+0000) Subject: Doc tweaks. X-Git-Tag: v0.06~119 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0bf88ce5eaf4272108cfacc5080415cfb7f35164;p=dbsrgits%2FSQL-Translator.git Doc tweaks. --- diff --git a/lib/SQL/Translator/Schema/Field.pm b/lib/SQL/Translator/Schema/Field.pm index cfd2290..483becc 100644 --- a/lib/SQL/Translator/Schema/Field.pm +++ b/lib/SQL/Translator/Schema/Field.pm @@ -1,7 +1,7 @@ package SQL::Translator::Schema::Field; # ---------------------------------------------------------------------- -# $Id: Field.pm,v 1.16 2004-03-23 21:42:42 grommit Exp $ +# $Id: Field.pm,v 1.17 2004-03-23 21:45:19 grommit Exp $ # ---------------------------------------------------------------------- # Copyright (C) 2002-4 SQLFairy Authors # @@ -50,7 +50,7 @@ use SQL::Translator::Utils 'parse_list_arg'; use base 'Class::Base'; use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT); -$VERSION = sprintf "%d.%02d", q$Revision: 1.16 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.17 $ =~ /(\d+)\.(\d+)/; # 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 @@ -70,7 +70,9 @@ sub init { Object constructor. - my $schema = SQL::Translator::Schema::Field->new( + my $field = SQL::Translator::Schema::Field->new( + name => 'foo', + table => $table, ); =cut