X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lib%2FPerl%2FTidy%2FVerticalAligner%2FAlignment.pm;h=78b0b83e423609b2c98a7ace9f58578581da7553;hb=880633cc084e9d787eb9f760d3851c5d660db17c;hp=79849c65de0cde8603b3320ab5708e716a372424;hpb=57d829ae0e2c75828f8ecc9c7139579350927dbc;p=perltidy.git

diff --git a/lib/Perl/Tidy/VerticalAligner/Alignment.pm b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
index 79849c6..78b0b83 100644
--- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
@@ -10,15 +10,20 @@ use warnings;
 
 { #<<< A non-indenting brace
 
-our $VERSION = '20210717';
+our $VERSION = '20220217';
 
-#    _column_          # the current column number
-#    _saved_column_    # a place for temporary storage
-my $i = 0;
-use constant {
-    _column_       => $i++,
-    _saved_column_ => $i++,
-};
+BEGIN {
+
+    # Indexes for variables in $self.
+    # Do not combine with other BEGIN blocks (c101).
+    #    _column_          # the current column number
+    #    _saved_column_    # a place for temporary storage
+    my $i = 0;
+    use constant {
+        _column_       => $i++,
+        _saved_column_ => $i++,
+    };
+}
 
 sub new {
     my ( $class, $rarg ) = @_;