From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 16 Jul 2022 17:49:42 +0000 (-0700)
Subject: remove unused subs
X-Git-Tag: 20220613.03~17
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c5184298a5b79182333d45e8c6484cc4fade152e;p=perltidy.git

remove unused subs
---

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 3906580f..a03191ec 100644
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -42,14 +42,6 @@ EOM
         return $self;
     }
 
-    sub set_alignment {
-        my ( $self, $j, $val ) = @_;
-        $self->{ralignments}->[$j] = $val;
-        return;
-    }
-
-    sub get_alignments { return @{ $_[0]->{ralignments} } }
-
     # This sub is called many times and has been optimized a bit
     sub get_column {
         ##my ( $self, $j ) = @_;
@@ -58,12 +50,6 @@ EOM
         return $alignment->get_column();
     }
 
-    sub set_alignments {
-        my ( $self, @args ) = @_;
-        @{ $self->{ralignments} } = @args;
-        return;
-    }
-
     sub current_field_width {
         my ( $self, $j ) = @_;
         my $col_j  = 0;