From a81b4416030d5c27cb931f2f238bf3937589a750 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 24 Mar 2020 05:53:40 -0700
Subject: [PATCH] convert IndentationItem::new to named call

---
 lib/Perl/Tidy/Formatter.pm       | 14 +++++++++-----
 lib/Perl/Tidy/IndentationItem.pm | 16 ++++++++++------
 2 files changed, 19 insertions(+), 11 deletions(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 90cf0fee..9b301cb1 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -4949,11 +4949,15 @@ sub new_lp_indentation_item {
     if ( $level >= 0 ) { $index = ++$max_gnu_item_index; }
 
     my $item = Perl::Tidy::IndentationItem->new(
-        $spaces,      $level,
-        $ci_level,    $available_spaces,
-        $index,       $gnu_sequence_number,
-        $align_paren, $max_gnu_stack_index,
-        $line_start_index_to_go,
+        spaces              => $spaces,
+        level               => $level,
+        ci_level            => $ci_level,
+        available_spaces    => $available_spaces,
+        index               => $index,
+        gnu_sequence_number => $gnu_sequence_number,
+        align_paren         => $align_paren,
+        stack_depth         => $max_gnu_stack_index,
+        starting_index      => $line_start_index_to_go,
     );
 
     if ( $level >= 0 ) {
diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm
index c7978ed9..c4331755 100644
--- a/lib/Perl/Tidy/IndentationItem.pm
+++ b/lib/Perl/Tidy/IndentationItem.pm
@@ -14,12 +14,16 @@ sub new {
 
     # Create an 'indentation_item' which describes one level of leading
     # whitespace when the '-lp' indentation is used.
-    my (
-        $class,               $spaces,           $level,
-        $ci_level,            $available_spaces, $index,
-        $gnu_sequence_number, $align_paren,      $stack_depth,
-        $starting_index,
-    ) = @_;
+    my ( $class, %call_hash ) = @_;
+    my $spaces              = $call_hash{spaces};
+    my $level               = $call_hash{level};
+    my $ci_level            = $call_hash{ci_level};
+    my $available_spaces    = $call_hash{available_spaces};
+    my $index               = $call_hash{index};
+    my $gnu_sequence_number = $call_hash{gnu_sequence_number};
+    my $align_paren         = $call_hash{align_paren};
+    my $stack_depth         = $call_hash{stack_depth};
+    my $starting_index      = $call_hash{starting_index};
 
     my $closed            = -1;
     my $arrow_count       = 0;
-- 
2.39.5