From fd16455b009110ed1b3c8e9e4c878ba52e70695b Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Fri, 22 May 2020 06:57:59 -0700 Subject: [PATCH] added values 'end_group' and 'is_forced_break' to Line.pm --- lib/Perl/Tidy/VerticalAligner.pm | 1 + lib/Perl/Tidy/VerticalAligner/Line.pm | 15 +++++++++++++++ 2 files changed, 16 insertions(+) diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm index 786b71c3..31325c7b 100644 --- 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 d66198d2..c61345c2 100644 --- 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; -- 2.39.5