# HG changeset patch
# User Pranshu Sharma <pranshu@bauherren.ovh>
# Date 1737740098 -36000
#      Sat Jan 25 03:34:58 2025 +1000
# Node ID 4c972b0720cb264714f3ac4f82e2ad580a3c28c5
# Parent  6c70e2fb876c57bb153c6c0f2906503396f22db5
formating fixup

Also fixed docstring ambiguity

diff --git a/perl-ts-mode.el b/perl-ts-mode.el
--- a/perl-ts-mode.el
+++ b/perl-ts-mode.el
@@ -337,7 +337,7 @@
       (seq-filter
        'identity
        (append
-	(mapcar 
+	(mapcar
 	 (pcase-lambda (`(,name . ,node))
 	   (if (eq 'package name)
 	       (prog1 nil
@@ -441,7 +441,7 @@
     (treesit-forward-sentence arg)))
 
 (defun perl-ts-outline-level ()
-  "The `outline-level' function for `perl-ts-mode'."
+  "The function `outline-level' function for `perl-ts-mode'."
   (let ((node (treesit-node-at (point) treesit-primary-parser)))
     (pcase (treesit-node-type node)
       ;; pod comment
@@ -486,7 +486,7 @@
   ;; function is in.
   (setq-local imenu-create-index-function 'perl-ts-imenu-create-index)
   (setq-local treesit-defun-type-regexp
-	"subroutine_declaration_statement\\|method_declaration_statement")
+	      "subroutine_declaration_statement\\|method_declaration_statement")
   (setq-local treesit-font-lock-level perl-ts-font-lock-level)
   (setq-local treesit-thing-settings perl-ts-thing-settings)
   (setq-local treesit-defun-name-function 'perl-ts-function-name)