X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lib%2FPerl%2FTidy%2FVerticalAligner%2FLine.pm;h=b5b0d1e35edc77e56508c8a181cec989eb5df5fd;hb=880633cc084e9d787eb9f760d3851c5d660db17c;hp=72f9512a686dd12cea86332b9ebc937914647087;hpb=57d829ae0e2c75828f8ecc9c7139579350927dbc;p=perltidy.git

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 72f9512..b5b0d1e 100644
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -8,9 +8,12 @@
 package Perl::Tidy::VerticalAligner::Line;
 use strict;
 use warnings;
-our $VERSION = '20210717';
+our $VERSION = '20220217';
 
 BEGIN {
+
+    # Indexes for variables in $self.
+    # Do not combine with other BEGIN blocks (c101).
     my $i = 0;
     use constant {
         _jmax_                      => $i++,
@@ -143,6 +146,10 @@ EOM
         return $_[0]->[_is_hanging_side_comment_];
     }
 
+    sub get_maximum_line_length {
+        return $_[0]->[_maximum_line_length_];
+    }
+
     sub get_rvertical_tightness_flags {
         return $_[0]->[_rvertical_tightness_flags_];
     }