[Rt-commit] r3699 - Text-Tags/lib/Text/Tags

[glasser at bestpractical.com]

Author: glasser
Date: Thu Aug 18 22:07:38 2005
New Revision: 3699

Modified:
   Text-Tags/lib/Text/Tags/Parser.pm
Log:
more perltidy.  (This is 0.02.)


Modified: Text-Tags/lib/Text/Tags/Parser.pm
==============================================================================
--- Text-Tags/lib/Text/Tags/Parser.pm	(original)
+++ Text-Tags/lib/Text/Tags/Parser.pm	Thu Aug 18 22:07:38 2005
@@ -26,7 +26,7 @@
 		     )/gx
         )
     {
-        my $tag = $+;
+        my $tag       = $+;
         my $is_quoted = $1 || $3;
 
         # shed explictly quoted empty strings
@@ -60,11 +60,13 @@
         my $quote;
 
         if ( $tag =~ /"/ and $tag =~ /'/ ) {
+
             # This is an illegal tag.  Normalize to just single-quotes.
             # Quote it too, though technically the new form might not need it.
             $tag =~ tr/"/'/;
             $quote = q{"};
         } elsif ( $tag =~ /"/ ) {
+
             # It contains a ", so either it needs to be unquoted or
             # single-quoted
             if ( $tag =~ / / or $tag =~ /,/ or $tag =~ /^"/ ) {
@@ -73,6 +75,7 @@
                 $quote = q{};
             }
         } elsif ( $tag =~ /'/ ) {
+
             # It contains a ', so either it needs to be unquoted or
             # double-quoted
             if ( $tag =~ / / or $tag =~ /,/ or $tag =~ /^'/ ) {
@@ -81,10 +84,12 @@
                 $quote = q{};
             }
         } elsif ( $tag =~ /[ ,]/ ) {
+
             # By this point we know that it contains no quotes.
             # But it needs to be quoted.
             $quote = q{"};
         } else {
+
             # No special characters at all!
             $quote = q{};
         }