convert IndentationItem::new to named call

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 90cf0feeb5aa604881e12a41c3b5d511549bb40e..9b301cb18fe29eec3ab4db07b8b4db8ac391f2a7 100644 (file)
--- 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 c7978ed9abbfc5a1f6a1be41a81b919df068b5ad..c4331755bc8ea5bfb0a93588ddfc03ceb6ec31df 100644 (file)
--- 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;