feat(perl): support more modern syntax

lockfile.json

@@ -519,7 +519,7 @@
     "revision": "217ff2af3f2db15a79ab7e3d21ea1e0c17e71a1a"
   },
   "perl": {
-    "revision": "458e694f63d59edc72a9fb321443f70f740e04e8"
+    "revision": "81c57e274c541c30d6c204c8dbceb90ec647ed8d"
   },
   "php": {
     "revision": "74c6b0d560c2660db4d9e8c76b681f538d494160"

queries/perl/highlights.scm

@@ -45,6 +45,11 @@
   "method"
 ] @keyword.function
 
+[
+  "async"
+  "await"
+] @keyword.coroutine
+
 [
   "map"
   "grep"
@@ -54,6 +59,7 @@
 [
   "package"
   "class"
+  "role"
 ] @keyword.import
 
 [
@@ -63,6 +69,7 @@
   "my"
   "our"
   "local"
+  "dynamically"
   "state"
   "field"
   "last"
@@ -82,10 +89,16 @@
 (phaser_statement
   phase: _ @keyword)
 
+(class_phaser_statement
+  phase: _ @keyword)
+
 [
   "or"
+  "xor"
   "and"
   "eq"
+  "equ"
+  "eqr"
   "ne"
   "cmp"
   "lt"
@@ -106,6 +119,8 @@
   (version)
 ] @number
 
+(boolean) @boolean
+
 [
   (string_literal)
   (interpolated_string_literal)