From b30145bc8554db286ad6be82c60ad9c4086fefa4 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 15 May 2024 06:26:34 -0700
Subject: [PATCH] improve -dma and -wma coverage

---
 lib/Perl/Tidy/Formatter.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index fe9235c2..849c3b64 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -13885,7 +13885,6 @@ EOM
                     $item->{is_signature}    = 0;
                     $item->{shift_count_min} = $shift_count;
                     $item->{shift_count_max} = $shift_count;
-                    $item->{self_name}       = $self_name;
                     $self->count_list_args($item);
                     return;
                 }
@@ -14001,6 +14000,10 @@ EOM
                         if ( $rLL->[$K_mm]->[_TYPE_] eq 'i' ) {
                             my $token_mm = $rLL->[$K_mm]->[_TOKEN_];
                             $self_name = $token_mm;
+
+                            # we store self_name immediately because it will
+                            # be needed even if we cannot get an arg count
+                            $item->{self_name} = $self_name;
                         }
                     }
                 }
@@ -14023,7 +14026,6 @@ EOM
                         {
                             $item->{shift_count_min} = $shift_count;
                             $item->{shift_count_max} = $shift_count;
-                            $item->{self_name}       = $self_name;
                         }
                         return;
                     }
@@ -14151,7 +14153,6 @@ EOM
     if ( !$saw_pop_at_underscore ) {
         $item->{shift_count_min} = $shift_count;
         $item->{shift_count_max} = $shift_count;
-        $item->{self_name}       = $self_name;
     }
     return;
 
-- 
2.39.5