New upstream version 20220217

[perltidy.git] / lib / Perl / Tidy / VerticalAligner / Line.pm

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 72f9512a686dd12cea86332b9ebc937914647087..b5b0d1e35edc77e56508c8a181cec989eb5df5fd 100644 (file)
--- 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_];
     }