From 3533721282669e945b62b3ae9c53d4c5ffe16c76 Mon Sep 17 00:00:00 2001
From: "Paul \"LeoNerd\" Evans" <leonerd@leonerd.org.uk>
Date: Mon, 21 Feb 2022 15:30:53 +0000
Subject: [PATCH] Initial attempt at queries/perl/folds.scm

---
 queries/perl/folds.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 queries/perl/folds.scm

diff --git a/queries/perl/folds.scm b/queries/perl/folds.scm
new file mode 100644
index 000000000..994d569bc
--- /dev/null
+++ b/queries/perl/folds.scm
@@ -0,0 +1,12 @@
+[
+  (function_definition)
+  (if_statement)
+  (unless_statement)
+  (while_statement)
+  (until_statement)
+  (for_statement_1)
+  (for_statement_2)
+  (foreach_statement)
+  (standalone_block)
+  (pod_statement)
+] @fold