* feat(perl): highlight hash keys as @variable.member in various contexts

also, injections for s///e should fully re-parse

queries/perl/highlights.scm

@@ -243,50 +243,65 @@
   ; highlights punc vars and also numeric only like $11
   (#lua-match? @variable.builtin "^%A+$"))
 
-(scalar) @variable
-
-(scalar_deref_expression
-  [
-    "$"
-    "*"
-  ] @variable)
-
 [
+  (scalar)
   (array)
-  (arraylen)
+  (hash)
+  (glob)
+  ; arraylen's sigil is kinda special b/c it's not a data type
+  (arraylen
+    "$#" @operator)
 ] @variable
 
-(array_deref_expression
+; all post deref sigils highlighted as operators, and the unrolly star is a special char
+(postfix_deref
   [
+    "$"
     "@"
-    "*"
-  ] @variable)
-
-(hash) @variable
-
-(hash_deref_expression
-  [
     "%"
     "*"
-  ] @variable)
+    "$#"
+  ] @operator
+  "*" @character.special)
 
-(array_element_expression
+(slices
-  array: (_) @variable)
+  [
+    arrayref: _
+    hashref: _
+  ]
+  [
+    "@"
+    "%"
+  ] @operator)
 
-(slice_expression
+; except for subref deref, b/c that's actually a function call
-  array: (_) @variable)
+(amper_deref_expression
+  [
+    "&"
+    "*"
+  ] @function.call)
 
-(keyval_expression
+; mark hash or glob keys that are any form of string in any form of access
-  array: (_) @variable)
+(_
+  "{"
+  [
+    (autoquoted_bareword)
+    (_
+      (string_content))
+  ] @variable.member
+  "}")
 
-(hash_element_expression
+; mark stringies on the LHS of a fat comma as a hash key, b/c that's usually what it
-  hash: (_) @variable)
+; denotes somewhat
-
+(_
-(slice_expression
+  [
-  hash: (_) @variable)
+    (autoquoted_bareword)
-
+    (_
-(keyval_expression
+      (string_content))
-  hash: (_) @variable)
+  ] @variable.member
+  .
+  "=>"
+  (_))
 
 (comment) @comment @spell
 

queries/perl/injections.scm

@@ -11,4 +11,5 @@
   ; match if there's a single `e` in the modifiers list
   (#lua-match? @_modifiers "e")
   (#not-lua-match? @_modifiers "e.*e")
-  (#set! injection.language "perl"))
+  (#set! injection.language "perl")
+  (#set! injection.include-children))