protect against undefined object call

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 1bb014f37a6dbb08981aca1b6501e84ce0984600..679ffb8f5489a8d6dd0f33792edb998f206f3227 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -140,17 +140,30 @@ our $VERSION = '20200907';
 
     sub get_column {
         my ( $self, $j ) = @_;
-        return $self->{_ralignments}->[$j]->get_column();
+        my $col;
+        my $alignment = $self->{_ralignments}->[$j];
+        if ( defined($alignment) ) {
+            $col = $alignment->get_column();
+        }
+        return $col;
     }
 
     sub get_starting_column {
         my ( $self, $j ) = @_;
-        return $self->{_ralignments}->[$j]->get_starting_column();
+        my $col;
+        my $alignment = $self->{_ralignments}->[$j];
+        if ( defined($alignment) ) {
+            $col = $alignment->get_starting_column();
+        }
+        return $col;
     }
 
     sub increment_column {
         my ( $self, $k, $pad ) = @_;
-        $self->{_ralignments}->[$k]->increment_column($pad);
+        my $alignment = $self->{_ralignments}->[$k];
+        if ( defined($alignment) ) {
+            $alignment->increment_column($pad);
+        }
         return;
     }