From c5184298a5b79182333d45e8c6484cc4fade152e Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 16 Jul 2022 10:49:42 -0700
Subject: [PATCH] remove unused subs

---
 lib/Perl/Tidy/VerticalAligner/Line.pm | 14 --------------
 1 file changed, 14 deletions(-)

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;
-- 
2.39.5