feat: Add perl support

andrewferrier · Nov 26, 2023 · f1fda1c · f1fda1c
1 parent 5fce62a
commit f1fda1c
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/README.md b/README.md
@@ -23,6 +23,7 @@ navigation and the ability to output variable values.
 *   `javascript`
 *   `lua`
 *   `make`
+*   `perl`
 *   `php`
 *   `ps1` (Powershell)
 *   `python`
@@ -290,7 +291,7 @@ If it helps to understand these, you can look at the built-in configurations in
 | Kotlin                                                              | :+1:              | :x:                                                                | :x:                                                       | :x:                                                                  | :x:                                                 | :x:                                               | :x:                                                   |
 | lua                                                                 | :+1:              | :+1:                                                               | :+1:                                                      | :+1:                                                                 | :+1:                                                | :x:                                               | :+1:                                                  |
 | GNU Make                                                            | :+1:              | :+1:                                                               | :x:                                                       | :x:                                                                  | :x:                                                 | :x:                                               | :x:                                                   |
-| Perl                                                                | :x:               | :x:                                                                | :x:                                                       | :x:                                                                  | :x:                                                 | :x:                                               | :x:                                                   |
+| Perl                                                                | :+1:              | :x:                                                                | :x:                                                       | :x:                                                                  | :x:                                                 | :x:                                               | :x:                                                   |
 | PHP                                                                 | :+1:              | :+1:                                                               | :x:                                                       | :+1:                                                                 | :x:                                                 | :x:                                               | :x:                                                   |
 | Powershell/ps1                                                      | :+1:              | :x:                                                                | :x:                                                       | :x:                                                                  | :x:                                                 | :x:                                               | :x:                                                   |
 | Python                                                              | :+1:              | :+1:                                                               | :+1:                                                      | :+1:                                                                 | :+1:                                                | :x:                                               | :x:                                                   |

diff --git a/lua/debugprint/filetypes.lua b/lua/debugprint/filetypes.lua
@@ -86,6 +86,12 @@ return {
         mid_var = '"$(',
         right_var = ")",
     },
+    ["perl"] = {
+        left = 'print STDERR "',
+        right = '\\n";',
+        mid_var = "$",
+        right_var = '\\n";',
+    },
     ["php"] = {
         left = 'fwrite(STDERR, "',
         right = '\\n");',