X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FSqlfXML.pm;h=e1d36378b0defd626b11d8dc9d3617e85f320099;hb=5952d39cc86d9478817d2716804f7fed41327a18;hp=cb4fc48267cae63112f2faef4307fd936e5a0f0f;hpb=b35303534de4c377a4c9dea7a5efb8dfcf759537;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Parser/SqlfXML.pm b/lib/SQL/Translator/Parser/SqlfXML.pm index cb4fc48..e1d3637 100644 --- a/lib/SQL/Translator/Parser/SqlfXML.pm +++ b/lib/SQL/Translator/Parser/SqlfXML.pm @@ -1,7 +1,7 @@ package SQL::Translator::Parser::SqlfXML; # ------------------------------------------------------------------- -# $Id: SqlfXML.pm,v 1.3 2003-08-07 14:49:24 grommit Exp $ +# $Id: SqlfXML.pm,v 1.4 2003-08-07 15:03:30 grommit Exp $ # ------------------------------------------------------------------- # Copyright (C) 2003 Mark Addison , # @@ -59,7 +59,7 @@ tags or EMPTY_STRING for a zero lenth string. NULL for an explicit null EMPTY_STRING NULL - + =cut @@ -67,7 +67,7 @@ use strict; use warnings; use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; use Data::Dumper; @@ -180,17 +180,18 @@ __END__ =head1 BUGS -B e.g. Will be parsed as "" and hence also +B e.g. Will be parsed as "" and hence also false. This is a bit counter intuative for some tags as seeing you might think that it was set when it fact it wouldn't be. So for now it is safest not to use them until their handling by the parser -is sorted out. +is defined. =head1 TODO * Support sqf:options. * Test forign keys are parsed ok. - * Sort out sane handling of vs vs it not being there. + * Sort out sane handling of empty tags vs tags with no content + vs it no tag being there. * Control over defaulting of non-existant tags. =head1 AUTHOR