X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FSqlfXML.pm;h=cb4fc48267cae63112f2faef4307fd936e5a0f0f;hb=b35303534de4c377a4c9dea7a5efb8dfcf759537;hp=4ec8df5079892a8ef17e32962846fbef876a783c;hpb=2b2601b506861fa81674c960752231365bdbf436;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Parser/SqlfXML.pm b/lib/SQL/Translator/Parser/SqlfXML.pm index 4ec8df5..cb4fc48 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.2 2003-08-06 22:08:16 grommit Exp $ +# $Id: SqlfXML.pm,v 1.3 2003-08-07 14:49:24 grommit Exp $ # ------------------------------------------------------------------- # Copyright (C) 2003 Mark Addison , # @@ -59,13 +59,15 @@ tags or EMPTY_STRING for a zero lenth string. NULL for an explicit null EMPTY_STRING NULL + + =cut use strict; use warnings; use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; use Data::Dumper; @@ -176,10 +178,19 @@ __END__ =pod +=head1 BUGS + +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. + =head1 TODO * Support sqf:options. * Test forign keys are parsed ok. + * Sort out sane handling of vs vs it not being there. * Control over defaulting of non-existant tags. =head1 AUTHOR