From 3e0feeb062b29bb7d6d6df1e32ba28111c2bb734 Mon Sep 17 00:00:00 2001
From: Paul Evans <leonerd@leonerd.org.uk>
Date: Wed, 7 Aug 2024 14:30:44 +0100
Subject: feat(perl): update highlights and folds

---
 queries/perl/folds.scm      | 13 ++++++++++++-
 queries/perl/highlights.scm | 25 +++++++++++++++++++++++--
 2 files changed, 35 insertions(+), 3 deletions(-)

diff --git a/queries/perl/folds.scm b/queries/perl/folds.scm
index 21950324d..a457a0a50 100644
--- a/queries/perl/folds.scm
+++ b/queries/perl/folds.scm
@@ -2,20 +2,31 @@
 
 (pod) @fold
 
-; fold the block-typed package statements only
+; fold the block-typed package and class statements only
 (package_statement
   (block)) @fold
 
+(class_statement
+  (block)) @fold
+
 [
   (subroutine_declaration_statement)
+  (method_declaration_statement)
   (conditional_statement)
   (loop_statement)
   (for_statement)
   (cstyle_for_statement)
   (block_statement)
+  (defer_statement)
   (phaser_statement)
 ] @fold
 
+(try_statement
+  (block) @fold)
+
+(eval_expression
+  (block) @fold)
+
 (anonymous_subroutine_expression) @fold
 
 ; perhaps folks want to fold these too?
diff --git a/queries/perl/highlights.scm b/queries/perl/highlights.scm
index 619923a9b..f654577f6 100644
--- a/queries/perl/highlights.scm
+++ b/queries/perl/highlights.scm
@@ -32,9 +32,18 @@
 ("continue" @keyword.repeat
   (block))
 
+[
+  "try"
+  "catch"
+  "finally"
+] @keyword.exception
+
 "return" @keyword.return
 
-"sub" @keyword.function
+[
+  "sub"
+  "method"
+] @keyword.function
 
 [
   "map"
@@ -42,14 +51,20 @@
   "sort"
 ] @function.builtin
 
-"package" @keyword.import
+[
+  "package"
+  "class"
+] @keyword.import
 
 [
+  "defer"
   "do"
+  "eval"
   "my"
   "our"
   "local"
   "state"
+  "field"
   "last"
   "next"
   "redo"
@@ -129,12 +144,18 @@
 (package_statement
   (package) @type)
 
+(class_statement
+  (package) @type)
+
 (require_expression
   (bareword) @type)
 
 (subroutine_declaration_statement
   name: (bareword) @function)
 
+(method_declaration_statement
+  name: (bareword) @function)
+
 (attribute_name) @attribute
 
 (attribute_value) @string
-- 
cgit v1.2.3-70-g09d2