update comments

diff --git a/lib/Perl/Tidy/FileWriter.pm b/lib/Perl/Tidy/FileWriter.pm
index 4f9099038bc9ec2e633dc30f6403689872fb2e5e..0f124b4d6f26a2f576995cb292a89dbc16324bc2 100644 (file)
--- a/lib/Perl/Tidy/FileWriter.pm
+++ b/lib/Perl/Tidy/FileWriter.pm
@@ -44,7 +44,8 @@ my $MAX_NAG_MESSAGES = 6;
 
 BEGIN {
 
-    # Array index names for variables
+    # Array index names for variables.
+    # Do not combine with other BEGIN blocks (c101).
     my $i = 0;
     use constant {
         _line_sink_object_            => $i++,

diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm
index f81b9c0fd129e81ecf3cb6504ef0af0a529f7e0f..86cbf4c5f9dfcccb19ab9f3df0fd882ad4c5d7ec 100644 (file)
--- a/lib/Perl/Tidy/IndentationItem.pm
+++ b/lib/Perl/Tidy/IndentationItem.pm
@@ -13,6 +13,7 @@ our $VERSION = '20211029';
 BEGIN {
 
     # Array index names
+    # Do not combine with other BEGIN blocks (c101).
     my $i = 0;
     use constant {
         _spaces_             => $i++,

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 64d3ded29c91336d2c3a6466ea589bd4433782f4..585a506da72c7eadf03aa7294e3137be84731aff 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -132,7 +132,8 @@ use constant MAX_NAG_MESSAGES => 6;
 
 BEGIN {
 
-    # Array index names for $self
+    # Array index names for $self.
+    # Do not combine with other BEGIN blocks (c101).
     my $i = 0;
     use constant {
         _rhere_target_list_                  => $i++,

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 4306b7572217bac53c757defb9ac325aab9c0be4..1864b7e02e138712e94a945a39be7fa7629f18eb 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -122,6 +122,7 @@ BEGIN {
     # Define the fixed indexes for variables in $self, which is an array
     # reference.  Note the convention of leading and trailing underscores to
     # keep them unique.
+    # Do not combine with other BEGIN blocks (c101).
     my $i = 0;
     use constant {
         _file_writer_object_ => $i++,

diff --git a/lib/Perl/Tidy/VerticalAligner/Alignment.pm b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
index 756a8e53adaeb856d6f0a0d684465aff4064a0b4..0d2e6d9020791510626a0d5554f36b874b27d324 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
@@ -12,13 +12,18 @@ use warnings;
 
 our $VERSION = '20211029';
 
-#    _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 ) = @_;

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 84968738efbafbcded99427f4d57726d466b2717..68f9e0e8995689435bf614d8d16ab6b40abba6b1 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -11,6 +11,9 @@ use warnings;
 our $VERSION = '20211029';
 
 BEGIN {
+
+    # Indexes for variables in $self.
+    # Do not combine with other BEGIN blocks (c101).
     my $i = 0;
     use constant {
         _jmax_                      => $i++,