From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 15 Apr 2022 21:09:50 +0000 (-0700)
Subject: add alignment for use ... qw (see issue git #93)
X-Git-Tag: 20220217.03~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8df6c730dd45c93f2d42e749083e73ecf9dda8a6;p=perltidy.git

add alignment for use ... qw (see issue git #93)
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index bd7cdd21..637ff526 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -22795,6 +22795,13 @@ EOM
                     }
                 }
 
+                # align qw in a 'use' statement (issue git #93)
+                elsif ( $type eq 'q' ) {
+                    if ( $types_to_go[0] eq 'k' && $tokens_to_go[0] eq 'use' ) {
+                        $alignment_type = $type;
+                    }
+                }
+
                 # align before one of these types..
                 elsif ( $is_vertical_alignment_type{$type}
                     && !$is_not_vertical_alignment_token{$token} )