added values 'end_group' and 'is_forced_break' to Line.pm

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 786b71c340bf644aed96c68b5b8c0c7cc476289b..31325c7bf167bbbf9ccf75a298bee7dc0b1f1ac5 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -621,6 +621,7 @@ sub valign_input {
         rvertical_tightness_flags => $rvertical_tightness_flags,
         is_terminal_ternary       => $is_terminal_ternary,
         j_terminal_match          => $j_terminal_match,
+        is_forced_break           => $is_forced_break,
     );
 
     # --------------------------------------------------------------------

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index d66198d22547941a069609dbd21385945ab982f9..c61345c260ad369d7d0ef557a8468f8a6e0483be 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -32,6 +32,8 @@ our $VERSION = '20200110.01';
         is_terminal_ternary       => undef,
         is_terminal_else          => undef,
         j_terminal_match          => undef,
+        is_forced_break           => undef,
+        end_group                 => undef,
     );
     {
 
@@ -98,6 +100,11 @@ our $VERSION = '20200110.01';
         return $self->{_is_terminal_ternary};
     }
 
+    sub get_is_forced_break {
+        my $self = shift;
+        return $self->{_is_forced_break};
+    }
+
     sub get_leading_space_count {
         my $self = shift;
         return $self->{_leading_space_count};
@@ -263,6 +270,14 @@ our $VERSION = '20200110.01';
         return;
     }
 
+    sub get_end_group { my $self = shift; return $self->{_end_group} }
+
+    sub set_end_group {
+        my ( $self, $j, $val ) = @_;
+        $self->{_end_group}->[$j] = $val;
+        return;
+    }
+
 }
 
 1;