From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 16 Apr 2020 14:59:43 +0000 (-0700)
Subject: add variable 'rfield_length'
X-Git-Tag: 20200619~93
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4dda7386b342180cc72fe10e36b404cf6f3d6690;p=perltidy.git

add variable 'rfield_length'
---

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 25925df2..d66198d2 100644
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -19,6 +19,7 @@ our $VERSION = '20200110.01';
         jmax_original_line        => undef,
         rtokens                   => undef,
         rfields                   => undef,
+        rfield_lengths            => undef,
         rpatterns                 => undef,
         indentation               => undef,
         leading_space_count       => undef,
@@ -76,10 +77,11 @@ our $VERSION = '20200110.01';
         my $self = shift;
         return $self->{_jmax_original_line};
     }
-    sub get_rtokens     { my $self = shift; return $self->{_rtokens} }
-    sub get_rfields     { my $self = shift; return $self->{_rfields} }
-    sub get_rpatterns   { my $self = shift; return $self->{_rpatterns} }
-    sub get_indentation { my $self = shift; return $self->{_indentation} }
+    sub get_rtokens        { my $self = shift; return $self->{_rtokens} }
+    sub get_rfields        { my $self = shift; return $self->{_rfields} }
+    sub get_rfield_lengths { my $self = shift; return $self->{_rfield_lengths} }
+    sub get_rpatterns      { my $self = shift; return $self->{_rpatterns} }
+    sub get_indentation    { my $self = shift; return $self->{_indentation} }
 
     sub get_j_terminal_match {
         my $self = shift;
@@ -213,6 +215,12 @@ our $VERSION = '20200110.01';
         return;
     }
 
+    sub set_rfield_lengths {
+        my ( $self, $val ) = @_;
+        $self->{_rfield_lengths} = $val;
+        return;
+    }
+
     sub set_rpatterns {
         my ( $self, $val ) = @_;
         $self->{_rpatterns} = $val;