fix(perl): correct use of supertypes

This commit is contained in:
Christian Clason 2025-11-25 10:34:35 +01:00 committed by Christian Clason
parent d6ebbd5039
commit c5871d9d87

View file

@ -256,15 +256,37 @@
; all post deref sigils highlighted as operators, and the unrolly star is a special char ; all post deref sigils highlighted as operators, and the unrolly star is a special char
(postfix_deref (postfix_deref
[ [
"$" (scalar_deref_expression
"$" @operator
"*" @character.special)
(array_deref_expression
"@" @operator
"*" @character.special)
(arraylen_deref_expression
"$#" @operator
"*" @character.special)
(hash_deref_expression
"%" @operator
"*" @character.special)
(amper_deref_expression
"&" @operator
"*" @character.special)
(glob_deref_expression
"*" @operator
"*" @character.special)
])
(slices/slice_expression
[
arrayref: _
hashref: _
]
[
"@" "@"
"%" "%"
"*" ] @operator)
"$#"
] @operator
"*" @character.special)
(slices (slices/keyval_expression
[ [
arrayref: _ arrayref: _
hashref: _ hashref: _