remove unused subs

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 3906580f6ae535cffaee8111e0e4ccb8c8c33fa8..a03191ec22c359dcfbaa3bf94ca87848dda22392 100644 (file)
--- 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;