perl snippets for sub and foreach.

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/snippets/cperl-mode/fore b/snippets/cperl-mode/fore
new file mode 100644 (file)
index 0000000..7060798
--- /dev/null
+++ b/snippets/cperl-mode/fore
@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: foreach ... { ... }
+# key: fore
+# --
+foreach my \$${1:x} (@${2:array}) {
+    ${3:# body...}
+}
\ No newline at end of file

diff --git a/snippets/cperl-mode/getopt b/snippets/cperl-mode/getopt
index 8e032f32811063473d3c84c0b4e572820d8c76c6..ce9297c0c83ea893a6a2fe1ca0ca35acd29c9556 100644 (file)
--- a/snippets/cperl-mode/getopt
+++ b/snippets/cperl-mode/getopt
@@ -1,4 +1,4 @@
-# -*- mode: snippets -*-
+# -*- mode: snippet -*-
 # name: getopt
 # key: getopt
 # --

diff --git a/snippets/cperl-mode/sub b/snippets/cperl-mode/sub
new file mode 100644 (file)
index 0000000..c41d5f8
--- /dev/null
+++ b/snippets/cperl-mode/sub
@@ -0,0 +1,16 @@
+# -*- mode: snippet -*-
+# name: sub
+# key: sub
+# --
+
+=head2 ${1:function_name}
+
+$2
+
+=cut
+
+sub $1 {
+  $0
+
+
+}
\ No newline at end of file