Unnamed repository; edit this file 'description' to name the repository.
Diffstat (limited to 'runtime/queries/perl/textobjects.scm')
-rw-r--r--runtime/queries/perl/textobjects.scm23
1 files changed, 13 insertions, 10 deletions
diff --git a/runtime/queries/perl/textobjects.scm b/runtime/queries/perl/textobjects.scm
index 1b0b5f07..972b8774 100644
--- a/runtime/queries/perl/textobjects.scm
+++ b/runtime/queries/perl/textobjects.scm
@@ -1,14 +1,17 @@
-(subroutine_declaration_statement
- body: (_) @function.inside) @function.around
-(anonymous_subroutine_expression
- body: (_) @function.inside) @function.around
+(function_definition
+ (identifier) (_) @function.inside) @function.around
-(package_statement) @class.around
-(package_statement
- (block) @class.inside)
+(anonymous_function
+ (_) @function.inside) @function.around
-(list_expression
+(argument
(_) @parameter.inside)
-(comment) @comment.around
-(pod) @comment.around
+[
+ (comments)
+ (pod_statement)
+] @comment.inside
+
+(comments)+ @comment.around
+
+(pod_statement) @comment.around