From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Wed, 26 Aug 2009 05:56:03 +0000 (-0700)
Subject: remove comments/old warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5eff9806ff4d1ceed1597e8d8580522f26b0197d;p=dbsrgits%2FSQL-Translator-2.0-ish.git

remove comments/old warnings
---

diff --git a/lib/SQL/Translator/Producer/XML.pm b/lib/SQL/Translator/Producer/XML.pm
index 07a7308..93951f4 100644
--- a/lib/SQL/Translator/Producer/XML.pm
+++ b/lib/SQL/Translator/Producer/XML.pm
@@ -193,9 +193,8 @@ method xml_obj_children($xml: $parent, HashRef $args?) {
 #
 my $elements_re = join("|", @MAP_AS_ELEMENTS);
 $elements_re = qr/^($elements_re)$/;
-#sub xml_obj {
+
 method xml_obj($xml: $obj, HashRef $args?) {
-#    my ($xml, $obj, %args) = @_;
     my $tag                = $args->{'tag'}              || '';
     my $end_tag            = $args->{'end_tag'}          || '';
     my @meths              = @{ $args->{'methods'} };
@@ -217,7 +216,7 @@ method xml_obj($xml: $obj, HashRef $args?) {
     $end_tag && !$child_tags
         ? $xml->emptyTag( [ $Namespace => $tag ], @attr )
         : $xml->startTag( [ $Namespace => $tag ], @attr );
-    while ( my ($name,$val) = splice @tags,0,2 ) { warn "NAME: $name, $val";
+    while ( my ($name,$val) = splice @tags,0,2 ) {
         if ( ref $val eq 'HASH' ) {
              $xml->emptyTag( [ $Namespace => $name ],
                  map { ($_, $val->{$_}) } sort keys %$val );