removed unused variables

diff --git a/lib/Perl/Tidy/VerticalAligner/Alignment.pm b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
index 3022836102b7d26fa3c8234b57dbbab9a539a4eb..f7e1e4e92bad9cf857acd995e0f5033f349351d8 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
@@ -11,25 +11,14 @@ our $VERSION = '20200619.02';
 
 {
 
-    #use Carp;
-
     #    _column          # the current column number
     #    _starting_column # column number when created
-    #    _matching_token  # what token we are matching
-    #    _starting_line   # the line index of creation
-    #    _ending_line
-    # the most recent line to use it
-    #    _saved_column
-    #    _serial_number   # unique number for this alignment
+    #    _saved_column    # a place for temporary storage
 
     my %default_data = (
         column          => undef,
         starting_column => undef,
-        matching_token  => undef,
-        starting_line   => undef,
-        ending_line     => undef,
         saved_column    => undef,
-        serial_number   => undef,
     );
 
     # class population count
@@ -45,14 +34,16 @@ our $VERSION = '20200619.02';
         my ( $caller, %arg ) = @_;
         my $caller_is_obj = ref($caller);
         my $class         = $caller_is_obj || $caller;
-        ##no strict "refs";
         my $self = bless {}, $class;
 
         foreach my $key ( keys %default_data ) {
             my $_key = '_' . $key;
             if    ( exists $arg{$key} ) { $self->{$_key} = $arg{$key} }
             elsif ($caller_is_obj)      { $self->{$_key} = $caller->{$_key} }
-            else { $self->{$_key} = $default_data{$_key} }
+            else  { $self->{$_key} = $default_data{$_key} }
+        }
+        if ( !defined( $self->{_starting_column} ) ) {
+            $self->{_starting_column} = $self->{_column};
         }
         $self->_increment_count();
         return $self;
@@ -70,10 +61,6 @@ our $VERSION = '20200619.02';
         my $self = shift;
         return $self->{_starting_column};
     }
-    sub get_matching_token { my $self = shift; return $self->{_matching_token} }
-    sub get_starting_line  { my $self = shift; return $self->{_starting_line} }
-    sub get_ending_line    { my $self = shift; return $self->{_ending_line} }
-    sub get_serial_number  { my $self = shift; return $self->{_serial_number} }
 
     sub set_column { my ( $self, $val ) = @_; $self->{_column} = $val; return }
 
@@ -83,24 +70,6 @@ our $VERSION = '20200619.02';
         return;
     }
 
-    sub set_matching_token {
-        my ( $self, $val ) = @_;
-        $self->{_matching_token} = $val;
-        return;
-    }
-
-    sub set_starting_line {
-        my ( $self, $val ) = @_;
-        $self->{_starting_line} = $val;
-        return;
-    }
-
-    sub set_ending_line {
-        my ( $self, $val ) = @_;
-        $self->{_ending_line} = $val;
-        return;
-    }
-
     sub increment_column {
         my ( $self, $val ) = @_;
         $self->{_column} += $val;