@enjoys/context-engine 1.4.1 → 1.4.2

package/data/completion/perl.json

@@ -1,203 +1,962 @@
-{
-  "language": "perl",
-  "completions": [
-    {
-      "label": "shebang",
-      "kind": 15,
-      "detail": "Perl shebang",
-      "documentation": {
-        "value": "Perl script shebang with strict and warnings."
-      },
-      "insertText": "#!/usr/bin/env perl\nuse strict;\nuse warnings;\n\n${1:# code}",
-      "insertTextRules": 4,
-      "sortText": "00_shebang"
-    },
-    {
-      "label": "use strict",
-      "kind": 14,
-      "detail": "Enable strict mode",
-      "documentation": {
-        "value": "Enable strict variable checking."
-      },
-      "insertText": "use strict;\nuse warnings;",
-      "insertTextRules": 4,
-      "sortText": "00_strict"
-    },
-    {
-      "label": "my variable",
-      "kind": 15,
-      "detail": "Lexical variable",
-      "documentation": {
-        "value": "Declare a lexical (local scope) variable."
-      },
-      "insertText": "my $${1:var} = ${2:value};",
-      "insertTextRules": 4,
-      "sortText": "01_my"
-    },
-    {
-      "label": "my array",
-      "kind": 15,
-      "detail": "Array variable",
-      "documentation": {
-        "value": "Declare an array."
-      },
-      "insertText": "my @${1:arr} = (${2:1, 2, 3});",
-      "insertTextRules": 4,
-      "sortText": "01_array"
-    },
-    {
-      "label": "my hash",
-      "kind": 15,
-      "detail": "Hash variable",
-      "documentation": {
-        "value": "Declare a hash (dictionary)."
-      },
-      "insertText": "my %${1:hash} = (\n    ${2:key1} => '${3:value1}',\n    ${4:key2} => '${5:value2}',\n);",
-      "insertTextRules": 4,
-      "sortText": "01_hash"
-    },
-    {
-      "label": "sub",
-      "kind": 15,
-      "detail": "Subroutine",
-      "documentation": {
-        "value": "Define a subroutine (function)."
-      },
-      "insertText": "sub ${1:name} {\n    my (${2:$param}) = @_;\n    ${3:# body}\n    return ${4:$result};\n}",
-      "insertTextRules": 4,
-      "sortText": "01_sub"
-    },
-    {
-      "label": "if",
-      "kind": 15,
-      "detail": "If statement",
-      "documentation": {
-        "value": "Conditional if statement."
-      },
-      "insertText": "if (${1:condition}) {\n    ${2:# code}\n}",
-      "insertTextRules": 4,
-      "sortText": "02_if"
-    },
-    {
-      "label": "if-else",
-      "kind": 15,
-      "detail": "If-elsif-else",
-      "documentation": {
-        "value": "Full conditional."
-      },
-      "insertText": "if (${1:condition}) {\n    ${2:# true}\n} elsif (${3:other}) {\n    ${4:# elsif}\n} else {\n    ${5:# else}\n}",
-      "insertTextRules": 4,
-      "sortText": "02_ifelse"
-    },
-    {
-      "label": "foreach",
-      "kind": 15,
-      "detail": "Foreach loop",
-      "documentation": {
-        "value": "Iterate over a list."
-      },
-      "insertText": "foreach my $${1:item} (@${2:list}) {\n    ${3:print \"$item\\n\";}\n}",
-      "insertTextRules": 4,
-      "sortText": "02_foreach"
-    },
-    {
-      "label": "while",
-      "kind": 15,
-      "detail": "While loop",
-      "documentation": {
-        "value": "Loop while condition is true."
-      },
-      "insertText": "while (${1:condition}) {\n    ${2:# body}\n}",
-      "insertTextRules": 4,
-      "sortText": "02_while"
-    },
-    {
-      "label": "regex match",
-      "kind": 15,
-      "detail": "Regex match",
-      "documentation": {
-        "value": "Match a string against a regex pattern."
-      },
-      "insertText": "if ($${1:str} =~ /${2:pattern}/) {\n    ${3:print \"matched\\n\";}\n}",
-      "insertTextRules": 4,
-      "sortText": "03_regex"
-    },
-    {
-      "label": "regex substitute",
-      "kind": 15,
-      "detail": "Regex substitution",
-      "documentation": {
-        "value": "Replace text using a regex pattern."
-      },
-      "insertText": "$${1:str} =~ s/${2:pattern}/${3:replacement}/g;",
-      "insertTextRules": 4,
-      "sortText": "03_subst"
-    },
-    {
-      "label": "open file",
-      "kind": 15,
-      "detail": "Open file",
-      "documentation": {
-        "value": "Open a file for reading."
-      },
-      "insertText": "open(my $${1:fh}, '<', '${2:file.txt}') or die \"Cannot open: $!\";\nwhile (my $line = <$${1:fh}>) {\n    chomp $line;\n    ${3:print \"$line\\n\";}\n}\nclose($${1:fh});",
-      "insertTextRules": 4,
-      "sortText": "03_open"
-    },
-    {
-      "label": "write file",
-      "kind": 15,
-      "detail": "Write to file",
-      "documentation": {
-        "value": "Open and write to a file."
-      },
-      "insertText": "open(my $${1:fh}, '>', '${2:output.txt}') or die \"Cannot open: $!\";\nprint $${1:fh} \"${3:content}\\n\";\nclose($${1:fh});",
-      "insertTextRules": 4,
-      "sortText": "03_write"
-    },
-    {
-      "label": "one-liner",
-      "kind": 15,
-      "detail": "Perl one-liner pattern",
-      "documentation": {
-        "value": "Common Perl one-liner patterns used on servers."
-      },
-      "insertText": "perl -${1:n}e '${2:print if /pattern/}' ${3:file.txt}",
-      "insertTextRules": 4,
-      "sortText": "04_oneliner"
-    },
-    {
-      "label": "chomp",
-      "kind": 14,
-      "detail": "Remove newline",
-      "documentation": {
-        "value": "Remove trailing newline from a string."
-      },
-      "insertText": "chomp($${1:line});",
-      "insertTextRules": 4,
-      "sortText": "05_chomp"
-    },
-    {
-      "label": "split",
-      "kind": 14,
-      "detail": "Split string",
-      "documentation": {
-        "value": "Split a string into an array."
-      },
-      "insertText": "my @${1:parts} = split(/${2:,}/, $${3:str});",
-      "insertTextRules": 4,
-      "sortText": "05_split"
-    },
-    {
-      "label": "join",
-      "kind": 14,
-      "detail": "Join array",
-      "documentation": {
-        "value": "Join array elements into a string."
-      },
-      "insertText": "my $${1:result} = join('${2:,}', @${3:arr});",
-      "insertTextRules": 4,
-      "sortText": "05_join"
-    }
-  ]
+{
+  "language": "perl",
+  "completions": [
+    {
+      "label": "shebang",
+      "kind": 15,
+      "detail": "Perl shebang",
+      "documentation": {
+        "value": "Perl script shebang with strict and warnings."
+      },
+      "insertText": "#!/usr/bin/env perl\nuse strict;\nuse warnings;\n\n${1:# code}",
+      "insertTextRules": 4,
+      "sortText": "00_shebang"
+    },
+    {
+      "label": "use strict",
+      "kind": 14,
+      "detail": "Enable strict mode",
+      "documentation": {
+        "value": "Enable strict variable checking."
+      },
+      "insertText": "use strict;\nuse warnings;",
+      "insertTextRules": 4,
+      "sortText": "00_strict"
+    },
+    {
+      "label": "my variable",
+      "kind": 15,
+      "detail": "Lexical variable",
+      "documentation": {
+        "value": "Declare a lexical (local scope) variable."
+      },
+      "insertText": "my $${1:var} = ${2:value};",
+      "insertTextRules": 4,
+      "sortText": "01_my"
+    },
+    {
+      "label": "my array",
+      "kind": 15,
+      "detail": "Array variable",
+      "documentation": {
+        "value": "Declare an array."
+      },
+      "insertText": "my @${1:arr} = (${2:1, 2, 3});",
+      "insertTextRules": 4,
+      "sortText": "01_array"
+    },
+    {
+      "label": "my hash",
+      "kind": 15,
+      "detail": "Hash variable",
+      "documentation": {
+        "value": "Declare a hash (dictionary)."
+      },
+      "insertText": "my %${1:hash} = (\n    ${2:key1} => '${3:value1}',\n    ${4:key2} => '${5:value2}',\n);",
+      "insertTextRules": 4,
+      "sortText": "01_hash"
+    },
+    {
+      "label": "sub",
+      "kind": 15,
+      "detail": "Subroutine",
+      "documentation": {
+        "value": "Define a subroutine (function)."
+      },
+      "insertText": "sub ${1:name} {\n    my (${2:$param}) = @_;\n    ${3:# body}\n    return ${4:$result};\n}",
+      "insertTextRules": 4,
+      "sortText": "01_sub"
+    },
+    {
+      "label": "if",
+      "kind": 15,
+      "detail": "If statement",
+      "documentation": {
+        "value": "Conditional if statement."
+      },
+      "insertText": "if (${1:condition}) {\n    ${2:# code}\n}",
+      "insertTextRules": 4,
+      "sortText": "02_if"
+    },
+    {
+      "label": "if-else",
+      "kind": 15,
+      "detail": "If-elsif-else",
+      "documentation": {
+        "value": "Full conditional."
+      },
+      "insertText": "if (${1:condition}) {\n    ${2:# true}\n} elsif (${3:other}) {\n    ${4:# elsif}\n} else {\n    ${5:# else}\n}",
+      "insertTextRules": 4,
+      "sortText": "02_ifelse"
+    },
+    {
+      "label": "foreach",
+      "kind": 15,
+      "detail": "Foreach loop",
+      "documentation": {
+        "value": "Iterate over a list."
+      },
+      "insertText": "foreach my $${1:item} (@${2:list}) {\n    ${3:print \"$item\\n\";}\n}",
+      "insertTextRules": 4,
+      "sortText": "02_foreach"
+    },
+    {
+      "label": "while",
+      "kind": 15,
+      "detail": "While loop",
+      "documentation": {
+        "value": "Loop while condition is true."
+      },
+      "insertText": "while (${1:condition}) {\n    ${2:# body}\n}",
+      "insertTextRules": 4,
+      "sortText": "02_while"
+    },
+    {
+      "label": "regex match",
+      "kind": 15,
+      "detail": "Regex match",
+      "documentation": {
+        "value": "Match a string against a regex pattern."
+      },
+      "insertText": "if ($${1:str} =~ /${2:pattern}/) {\n    ${3:print \"matched\\n\";}\n}",
+      "insertTextRules": 4,
+      "sortText": "03_regex"
+    },
+    {
+      "label": "regex substitute",
+      "kind": 15,
+      "detail": "Regex substitution",
+      "documentation": {
+        "value": "Replace text using a regex pattern."
+      },
+      "insertText": "$${1:str} =~ s/${2:pattern}/${3:replacement}/g;",
+      "insertTextRules": 4,
+      "sortText": "03_subst"
+    },
+    {
+      "label": "open file",
+      "kind": 15,
+      "detail": "Open file",
+      "documentation": {
+        "value": "Open a file for reading."
+      },
+      "insertText": "open(my $${1:fh}, '<', '${2:file.txt}') or die \"Cannot open: $!\";\nwhile (my $line = <$${1:fh}>) {\n    chomp $line;\n    ${3:print \"$line\\n\";}\n}\nclose($${1:fh});",
+      "insertTextRules": 4,
+      "sortText": "03_open"
+    },
+    {
+      "label": "write file",
+      "kind": 15,
+      "detail": "Write to file",
+      "documentation": {
+        "value": "Open and write to a file."
+      },
+      "insertText": "open(my $${1:fh}, '>', '${2:output.txt}') or die \"Cannot open: $!\";\nprint $${1:fh} \"${3:content}\\n\";\nclose($${1:fh});",
+      "insertTextRules": 4,
+      "sortText": "03_write"
+    },
+    {
+      "label": "one-liner",
+      "kind": 15,
+      "detail": "Perl one-liner pattern",
+      "documentation": {
+        "value": "Common Perl one-liner patterns used on servers."
+      },
+      "insertText": "perl -${1:n}e '${2:print if /pattern/}' ${3:file.txt}",
+      "insertTextRules": 4,
+      "sortText": "04_oneliner"
+    },
+    {
+      "label": "chomp",
+      "kind": 14,
+      "detail": "Remove newline",
+      "documentation": {
+        "value": "Remove trailing newline from a string."
+      },
+      "insertText": "chomp($${1:line});",
+      "insertTextRules": 4,
+      "sortText": "05_chomp"
+    },
+    {
+      "label": "split",
+      "kind": 14,
+      "detail": "Split string",
+      "documentation": {
+        "value": "Split a string into an array."
+      },
+      "insertText": "my @${1:parts} = split(/${2:,}/, $${3:str});",
+      "insertTextRules": 4,
+      "sortText": "05_split"
+    },
+    {
+      "label": "join",
+      "kind": 14,
+      "detail": "Join array",
+      "documentation": {
+        "value": "Join array elements into a string."
+      },
+      "insertText": "my $${1:result} = join('${2:,}', @${3:arr});",
+      "insertTextRules": 4,
+      "sortText": "05_join"
+    },
+    {
+      "label": "my",
+      "kind": 17,
+      "detail": "Keyword: my",
+      "documentation": {
+        "value": "Declare lexical variable."
+      },
+      "insertText": "my",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "our",
+      "kind": 17,
+      "detail": "Keyword: our",
+      "documentation": {
+        "value": "Declare package variable."
+      },
+      "insertText": "our",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "local",
+      "kind": 17,
+      "detail": "Keyword: local",
+      "documentation": {
+        "value": "Dynamic scoping."
+      },
+      "insertText": "local",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "sub",
+      "kind": 17,
+      "detail": "Keyword: sub",
+      "documentation": {
+        "value": "Define subroutine."
+      },
+      "insertText": "sub",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "return",
+      "kind": 17,
+      "detail": "Keyword: return",
+      "documentation": {
+        "value": "Return from subroutine."
+      },
+      "insertText": "return",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "if",
+      "kind": 17,
+      "detail": "Keyword: if",
+      "documentation": {
+        "value": "Conditional."
+      },
+      "insertText": "if",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "elsif",
+      "kind": 17,
+      "detail": "Keyword: elsif",
+      "documentation": {
+        "value": "Else-if."
+      },
+      "insertText": "elsif",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "else",
+      "kind": 17,
+      "detail": "Keyword: else",
+      "documentation": {
+        "value": "Else."
+      },
+      "insertText": "else",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "unless",
+      "kind": 17,
+      "detail": "Keyword: unless",
+      "documentation": {
+        "value": "Negative conditional."
+      },
+      "insertText": "unless",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "while",
+      "kind": 17,
+      "detail": "Keyword: while",
+      "documentation": {
+        "value": "While loop."
+      },
+      "insertText": "while",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "until",
+      "kind": 17,
+      "detail": "Keyword: until",
+      "documentation": {
+        "value": "Until loop."
+      },
+      "insertText": "until",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "for",
+      "kind": 17,
+      "detail": "Keyword: for",
+      "documentation": {
+        "value": "C-style for loop."
+      },
+      "insertText": "for",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "foreach",
+      "kind": 17,
+      "detail": "Keyword: foreach",
+      "documentation": {
+        "value": "Foreach loop."
+      },
+      "insertText": "foreach",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "do",
+      "kind": 17,
+      "detail": "Keyword: do",
+      "documentation": {
+        "value": "Do block or file."
+      },
+      "insertText": "do",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "last",
+      "kind": 17,
+      "detail": "Keyword: last",
+      "documentation": {
+        "value": "Break out of loop."
+      },
+      "insertText": "last",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "next",
+      "kind": 17,
+      "detail": "Keyword: next",
+      "documentation": {
+        "value": "Continue to next iteration."
+      },
+      "insertText": "next",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "redo",
+      "kind": 17,
+      "detail": "Keyword: redo",
+      "documentation": {
+        "value": "Restart loop iteration."
+      },
+      "insertText": "redo",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "eval",
+      "kind": 17,
+      "detail": "Keyword: eval",
+      "documentation": {
+        "value": "Evaluate and catch errors."
+      },
+      "insertText": "eval",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "die",
+      "kind": 17,
+      "detail": "Keyword: die",
+      "documentation": {
+        "value": "Raise exception."
+      },
+      "insertText": "die",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "warn",
+      "kind": 17,
+      "detail": "Keyword: warn",
+      "documentation": {
+        "value": "Print warning."
+      },
+      "insertText": "warn",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "use",
+      "kind": 17,
+      "detail": "Keyword: use",
+      "documentation": {
+        "value": "Load module."
+      },
+      "insertText": "use",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "require",
+      "kind": 17,
+      "detail": "Keyword: require",
+      "documentation": {
+        "value": "Require file or module."
+      },
+      "insertText": "require",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "package",
+      "kind": 17,
+      "detail": "Keyword: package",
+      "documentation": {
+        "value": "Declare package."
+      },
+      "insertText": "package",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "BEGIN",
+      "kind": 17,
+      "detail": "Keyword: BEGIN",
+      "documentation": {
+        "value": "Compile-time block."
+      },
+      "insertText": "BEGIN",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "END",
+      "kind": 17,
+      "detail": "Keyword: END",
+      "documentation": {
+        "value": "Cleanup block."
+      },
+      "insertText": "END",
+      "insertTextRules": 0,
+      "sortText": "00_kw"
+    },
+    {
+      "label": "print",
+      "kind": 1,
+      "detail": "print()",
+      "documentation": {
+        "value": "Print to filehandle."
+      },
+      "insertText": "print ${1:\"Hello\\n\"};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "say",
+      "kind": 1,
+      "detail": "say()",
+      "documentation": {
+        "value": "Print with newline."
+      },
+      "insertText": "say ${1:\"Hello\"};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "chomp",
+      "kind": 1,
+      "detail": "chomp()",
+      "documentation": {
+        "value": "Remove trailing newline."
+      },
+      "insertText": "chomp(${1:$line});",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "chop",
+      "kind": 1,
+      "detail": "chop()",
+      "documentation": {
+        "value": "Remove last character."
+      },
+      "insertText": "chop(${1:$str});",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "push",
+      "kind": 1,
+      "detail": "push()",
+      "documentation": {
+        "value": "Append to array."
+      },
+      "insertText": "push @${1:array}, ${2:$value};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "pop",
+      "kind": 1,
+      "detail": "pop()",
+      "documentation": {
+        "value": "Remove last element."
+      },
+      "insertText": "my $${1:last} = pop @${2:array};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "shift",
+      "kind": 1,
+      "detail": "shift()",
+      "documentation": {
+        "value": "Remove first element."
+      },
+      "insertText": "my $${1:first} = shift @${2:array};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "unshift",
+      "kind": 1,
+      "detail": "unshift()",
+      "documentation": {
+        "value": "Prepend to array."
+      },
+      "insertText": "unshift @${1:array}, ${2:$value};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "splice",
+      "kind": 1,
+      "detail": "splice()",
+      "documentation": {
+        "value": "Array splice."
+      },
+      "insertText": "splice(@${1:array}, ${2:offset}, ${3:length});",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "map",
+      "kind": 1,
+      "detail": "map {}",
+      "documentation": {
+        "value": "Transform list."
+      },
+      "insertText": "my @${1:result} = map { ${2:$_ * 2} } @${3:list};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "grep",
+      "kind": 1,
+      "detail": "grep {}",
+      "documentation": {
+        "value": "Filter list."
+      },
+      "insertText": "my @${1:matches} = grep { ${2:/$pattern/} } @${3:list};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "sort",
+      "kind": 1,
+      "detail": "sort {}",
+      "documentation": {
+        "value": "Sort list."
+      },
+      "insertText": "my @${1:sorted} = sort { $a <=> $b } @${2:list};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "reverse",
+      "kind": 1,
+      "detail": "reverse()",
+      "documentation": {
+        "value": "Reverse list."
+      },
+      "insertText": "my @${1:rev} = reverse @${2:list};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "join",
+      "kind": 1,
+      "detail": "join()",
+      "documentation": {
+        "value": "Join array to string."
+      },
+      "insertText": "my $${1:str} = join(\"${2:,}\", @${3:array});",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "split",
+      "kind": 1,
+      "detail": "split()",
+      "documentation": {
+        "value": "Split string to array."
+      },
+      "insertText": "my @${1:parts} = split(/${2:,}/, $${3:str});",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "keys",
+      "kind": 1,
+      "detail": "keys()",
+      "documentation": {
+        "value": "Array/hash keys."
+      },
+      "insertText": "my @${1:k} = keys %${2:hash};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "values",
+      "kind": 1,
+      "detail": "values()",
+      "documentation": {
+        "value": "Hash values."
+      },
+      "insertText": "my @${1:v} = values %${2:hash};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "exists",
+      "kind": 1,
+      "detail": "exists",
+      "documentation": {
+        "value": "Check key exists."
+      },
+      "insertText": "if (exists $${1:hash}{${2:key}}) { ${3:} }",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "delete",
+      "kind": 1,
+      "detail": "delete",
+      "documentation": {
+        "value": "Delete hash key."
+      },
+      "insertText": "delete $${1:hash}{${2:key}};",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "defined",
+      "kind": 1,
+      "detail": "defined()",
+      "documentation": {
+        "value": "Check if defined."
+      },
+      "insertText": "if (defined $${1:var}) { ${2:} }",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "ref",
+      "kind": 1,
+      "detail": "ref()",
+      "documentation": {
+        "value": "Get reference type."
+      },
+      "insertText": "my $${1:type} = ref($${2:ref});",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "length",
+      "kind": 1,
+      "detail": "length()",
+      "documentation": {
+        "value": "String length."
+      },
+      "insertText": "my $${1:len} = length($${2:str});",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "substr",
+      "kind": 1,
+      "detail": "substr()",
+      "documentation": {
+        "value": "Substring."
+      },
+      "insertText": "my $${1:sub} = substr($${2:str}, ${3:0}, ${4:5});",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "index",
+      "kind": 1,
+      "detail": "index()",
+      "documentation": {
+        "value": "Find substring."
+      },
+      "insertText": "my $${1:pos} = index($${2:str}, \"${3:needle}\");",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "sprintf",
+      "kind": 1,
+      "detail": "sprintf()",
+      "documentation": {
+        "value": "Format string."
+      },
+      "insertText": "my $${1:s} = sprintf(\"${2:%s=%d}\", ${3:$name}, ${4:$val});",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "open",
+      "kind": 1,
+      "detail": "open()",
+      "documentation": {
+        "value": "Open file."
+      },
+      "insertText": "open(my $${1:fh}, \"${2:<}\", \"${3:file.txt}\") or die \"Cannot open: $!\";",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "close",
+      "kind": 1,
+      "detail": "close()",
+      "documentation": {
+        "value": "Close filehandle."
+      },
+      "insertText": "close($${1:fh});",
+      "insertTextRules": 4,
+      "sortText": "01_fn"
+    },
+    {
+      "label": "$_",
+      "kind": 14,
+      "detail": "Default variable",
+      "documentation": {
+        "value": "Default variable (topic)."
+      },
+      "insertText": "$_",
+      "insertTextRules": 0,
+      "sortText": "02_svar"
+    },
+    {
+      "label": "@_",
+      "kind": 14,
+      "detail": "Argument list",
+      "documentation": {
+        "value": "Subroutine arguments."
+      },
+      "insertText": "@_",
+      "insertTextRules": 0,
+      "sortText": "02_svar"
+    },
+    {
+      "label": "$!",
+      "kind": 14,
+      "detail": "OS error",
+      "documentation": {
+        "value": "System error message/number."
+      },
+      "insertText": "$!",
+      "insertTextRules": 0,
+      "sortText": "02_svar"
+    },
+    {
+      "label": "$@",
+      "kind": 14,
+      "detail": "Eval error",
+      "documentation": {
+        "value": "Error from eval."
+      },
+      "insertText": "$@",
+      "insertTextRules": 0,
+      "sortText": "02_svar"
+    },
+    {
+      "label": "%ENV",
+      "kind": 14,
+      "detail": "Environment",
+      "documentation": {
+        "value": "Environment hash."
+      },
+      "insertText": "$ENV{${1:HOME}}",
+      "insertTextRules": 4,
+      "sortText": "02_svar"
+    },
+    {
+      "label": "$0",
+      "kind": 14,
+      "detail": "Program name",
+      "documentation": {
+        "value": "Current script name."
+      },
+      "insertText": "$0",
+      "insertTextRules": 0,
+      "sortText": "02_svar"
+    },
+    {
+      "label": "subroutine",
+      "kind": 28,
+      "detail": "Sub definition",
+      "documentation": {
+        "value": "Named subroutine."
+      },
+      "insertText": "sub ${1:name} {\n    my (${2:$arg1}) = @_;\n    ${3:# body}\n    return ${4:$result};\n}",
+      "insertTextRules": 4,
+      "sortText": "04_snip"
+    },
+    {
+      "label": "open read",
+      "kind": 28,
+      "detail": "Read file",
+      "documentation": {
+        "value": "Open and read file."
+      },
+      "insertText": "open(my $fh, \"<\", \"${1:file.txt}\") or die \"Cannot open: $!\";\nwhile (my $line = <$fh>) {\n    chomp $line;\n    ${2:print \"$line\\n\";}\n}\nclose($fh);",
+      "insertTextRules": 4,
+      "sortText": "04_snip"
+    },
+    {
+      "label": "open write",
+      "kind": 28,
+      "detail": "Write file",
+      "documentation": {
+        "value": "Open and write file."
+      },
+      "insertText": "open(my $fh, \">\", \"${1:output.txt}\") or die \"Cannot open: $!\";\nprint $fh \"${2:content}\\n\";\nclose($fh);",
+      "insertTextRules": 4,
+      "sortText": "04_snip"
+    },
+    {
+      "label": "regex match",
+      "kind": 28,
+      "detail": "Regex match",
+      "documentation": {
+        "value": "Match regex."
+      },
+      "insertText": "if ($${1:str} =~ /${2:pattern}/) {\n    ${3:print \"Matched: $1\\n\";}\n}",
+      "insertTextRules": 4,
+      "sortText": "04_snip"
+    },
+    {
+      "label": "regex replace",
+      "kind": 28,
+      "detail": "Regex replace",
+      "documentation": {
+        "value": "Substitution."
+      },
+      "insertText": "$${1:str} =~ s/${2:pattern}/${3:replacement}/g;",
+      "insertTextRules": 4,
+      "sortText": "04_snip"
+    },
+    {
+      "label": "hash iteration",
+      "kind": 28,
+      "detail": "Iterate hash",
+      "documentation": {
+        "value": "While each hash."
+      },
+      "insertText": "while (my ($${1:key}, $${2:val}) = each %${3:hash}) {\n    ${4:print \"$${1:key} => $${2:val}\\n\";}\n}",
+      "insertTextRules": 4,
+      "sortText": "04_snip"
+    },
+    {
+      "label": "try-catch",
+      "kind": 28,
+      "detail": "Eval/die",
+      "documentation": {
+        "value": "Error handling with eval."
+      },
+      "insertText": "eval {\n    ${1:# risky code}\n};\nif ($@) {\n    ${2:warn \"Error: $@\";}\n}",
+      "insertTextRules": 4,
+      "sortText": "04_snip"
+    },
+    {
+      "label": "module",
+      "kind": 28,
+      "detail": "Package module",
+      "documentation": {
+        "value": "Module boilerplate."
+      },
+      "insertText": "package ${1:MyModule};\n\nuse strict;\nuse warnings;\nuse Exporter qw(import);\n\nour @EXPORT_OK = qw(${2:func1});\n\nsub ${2:func1} {\n    my (${3:$arg}) = @_;\n    ${4:# body}\n}\n\n1;",
+      "insertTextRules": 4,
+      "sortText": "05_tpl"
+    },
+    {
+      "label": "Getopt",
+      "kind": 28,
+      "detail": "Getopt::Long",
+      "documentation": {
+        "value": "Command-line option parsing."
+      },
+      "insertText": "use Getopt::Long;\n\nmy ($${1:verbose}, $${2:output});\nGetOptions(\n    \"verbose|v\" => \\$${1:verbose},\n    \"output|o=s\" => \\$${2:output},\n) or die \"Invalid options\\n\";",
+      "insertTextRules": 4,
+      "sortText": "05_mod"
+    },
+    {
+      "label": "JSON::PP",
+      "kind": 28,
+      "detail": "JSON encode/decode",
+      "documentation": {
+        "value": "JSON processing."
+      },
+      "insertText": "use JSON::PP;\nmy $${1:data} = decode_json($${2:json_str});\nmy $${3:json} = encode_json($${4:hashref});",
+      "insertTextRules": 4,
+      "sortText": "05_mod"
+    },
+    {
+      "label": "File::Find",
+      "kind": 28,
+      "detail": "File::Find",
+      "documentation": {
+        "value": "Find files recursively."
+      },
+      "insertText": "use File::Find;\nfind(sub {\n    return unless -f;\n    return unless /\\.${1:pm}$/;\n    ${2:print \"$File::Find::name\\n\";}\n}, \"${3:.}\");",
+      "insertTextRules": 4,
+      "sortText": "05_mod"
+    }
+  ]
 }