Adding support for Function::Parameters

2 files changed, 40 insertions, 0 deletions

diff --git a/syntaxes/funcparams.json b/syntaxes/funcparams.json
new file mode 100644
index 0000000..c7d01d1
--- /dev/null
+++ b/syntaxes/funcparams.json
@@ -0,0 +1,31 @@
+{
+    "$schema": "https://raw.githubusercontent.com/martinring/tmlanguage/master/tmlanguage.json",
+    "information_for_contributors": [
+        "To modify the grammar, simply update the JSON run the extension."
+    ],
+    "name": "funcparams",
+    "scopeName": "source.perl.package.funcparams",
+    "injectionSelector": "L:meta.funcparams.perl -comment -string -text",
+    "patterns": [
+        {
+            "include": "#funcparams"
+        }
+    ],
+    "repository": {
+        "funcparams": {
+            "patterns": [
+                {
+                    "match": "\\b(method|fun)\\s+([\\w]+)\\b",
+                    "captures": {
+                        "1": {
+                            "name": "storage.type.sub.perl"
+                        },
+                        "2": {
+                            "name": "entity.name.function.perl"
+                        }
+                    }
+                }
+            ]
+        }
+    }
+}
\ No newline at end of file
diff --git a/syntaxes/perl-scopes.json b/syntaxes/perl-scopes.json
index 6c98ef3..a22250a 100644
--- a/syntaxes/perl-scopes.json
+++ b/syntaxes/perl-scopes.json
@@ -90,6 +90,15 @@
               "include": "#source"
             }
           ]
+        },
+        {
+          "name": "meta.funcparams.perl",
+          "begin": "(?<=use)\\s+(?:Function::Parameters)(?=[\\s;])",
+          "patterns": [
+            {
+              "include": "#source"
+            }
+          ]
         }
       ]
     }