New upstream version 20221112

[perltidy.git] / lib / Perl / Tidy / IndentationItem.pm

diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm
index 635eb296759568b0e4bdd3cafc414db1f376e8b9..2ccd8a1b48d7deb223c43c60a2d521c6a57a2ec0 100644 (file)
--- a/lib/Perl/Tidy/IndentationItem.pm
+++ b/lib/Perl/Tidy/IndentationItem.pm
@@ -8,7 +8,7 @@
 package Perl::Tidy::IndentationItem;
 use strict;
 use warnings;
-our $VERSION = '20220613';
+our $VERSION = '20221112';
 
 BEGIN {
 
@@ -31,6 +31,7 @@ BEGIN {
         _K_begin_line_       => $i++,
         _arrow_count_        => $i++,
         _standard_spaces_    => $i++,
+        _K_extra_space_      => $i++,
     };
 }
 
@@ -102,6 +103,7 @@ sub new {
     $self->[_K_begin_line_]       = $input_hash{K_begin_line};
     $self->[_arrow_count_]        = 0;
     $self->[_standard_spaces_]    = $input_hash{standard_spaces};
+    $self->[_K_extra_space_]      = $input_hash{K_extra_space};
 
     bless $self, $class;
     return $self;
@@ -187,6 +189,7 @@ sub decrease_SPACES {
 
 sub decrease_available_spaces {
     my ( $self, $value ) = @_;
+
     if ( defined($value) ) {
         $self->[_available_spaces_] -= $value;
     }
@@ -238,6 +241,10 @@ sub get_K_begin_line {
     return $_[0]->[_K_begin_line_];
 }
 
+sub get_K_extra_space {
+    return $_[0]->[_K_extra_space_];
+}
+
 sub set_have_child {
     my ( $self, $value ) = @_;
     if ( defined($value) ) {