queries/perl/folds.scm


1
2
3
4
5
6
7
8
9
10
11
12

[
  (function_definition)
  (if_statement)
  (unless_statement)
  (while_statement)
  (until_statement)
  (for_statement_1)
  (for_statement_2)
  (foreach_statement)
  (standalone_block)
  (pod_statement)
] @fold