runtime/queries/perl/textobjects.scm


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

(subroutine_declaration_statement
  body: (_) @function.inside) @function.around
(anonymous_subroutine_expression
  body: (_) @function.inside) @function.around

(package_statement) @class.around
(package_statement
  (block) @class.inside)

(list_expression
  (_) @parameter.inside)

(comment) @comment.around
(pod) @comment.around