1 files changed, 36 insertions, 0 deletions
diff --git a/runtime/queries/perl/folds.scm b/runtime/queries/perl/folds.scm
new file mode 100644
index 000000000..a457a0a50
--- /dev/null
+++ b/runtime/queries/perl/folds.scm
@@ -0,0 +1,36 @@
+(comment)+ @fold
+
+(pod) @fold
+
+; 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?
+[
+  (anonymous_array_expression)
+  (anonymous_hash_expression)
+] @fold