runtime/queries/perl/textobjects.scm


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

(function_definition 
  (identifier) (_) @function.inside) @function.around

(anonymous_function 
  (_) @function.inside) @function.around

(argument 
  (_) @parameter.inside)

[
  (comments)
  (pod_statement)
] @comment.inside

(comments)+ @comment.around

(pod_statement) @comment.around