added sub set_j_terminal_match()

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 679ffb8f5489a8d6dd0f33792edb998f206f3227..9ab3517252b5f9dc9580b1aec9eb54fc3790e362 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -90,6 +90,12 @@ our $VERSION = '20200907';
         return $self->{_j_terminal_match};
     }
 
+    sub set_j_terminal_match {
+        my ( $self, $val ) = @_;
+        $self->{_j_terminal_match} = $val;
+        return;
+    }
+
     sub get_is_terminal_else {
         my $self = shift;
         return $self->{_is_terminal_else};