Unnamed repository; edit this file 'description' to name the repository.
Diffstat (limited to 'runtime/queries/perl/highlights.scm')
-rw-r--r--runtime/queries/perl/highlights.scm15
1 files changed, 7 insertions, 8 deletions
diff --git a/runtime/queries/perl/highlights.scm b/runtime/queries/perl/highlights.scm
index 5f224333..c2496f9f 100644
--- a/runtime/queries/perl/highlights.scm
+++ b/runtime/queries/perl/highlights.scm
@@ -1,9 +1,9 @@
[
- "use" "no" "require" "package" "class" "role"
+ "use" "no" "require" "package"
] @keyword.control.import
[
- "sub" "method" "async" "extended"
+ "sub"
] @keyword.function
[
@@ -17,7 +17,7 @@
] @keyword.control.repeat
[
- "my" "our" "local" "state"
+ "my" "our" "local"
] @keyword.storage.modifier
[
@@ -29,18 +29,15 @@
] @constant.builtin
(phaser_statement phase: _ @keyword.directive)
-(class_phaser_statement phase: _ @keyword.directive)
[
- "or" "xor" "and"
+ "or" "and"
"eq" "ne" "cmp" "lt" "le" "ge" "gt"
"isa"
] @keyword.operator
(comment) @comment
-(function) @function
-
(eof_marker) @keyword.directive
(data_section) @comment
@@ -58,7 +55,7 @@
[(quoted_regexp) (match_regexp)] @string.regexp
-(autoquoted_bareword) @string.special
+(autoquoted_bareword _?) @string.special
[(scalar) (arraylen)] @variable
(scalar_deref_expression ["->" "$" "*"] @variable)
@@ -97,3 +94,5 @@
(func0op_call_expression function: _ @function.builtin)
(func1op_call_expression function: _ @function.builtin)
+
+(function) @function