From 2a58f03b419e41a25fb87a142e384ef225e553ef Mon Sep 17 00:00:00 2001
From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Tue, 4 Nov 2014 20:43:40 +0100
Subject: [PATCH] perl snippets for sub and foreach.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---
 snippets/cperl-mode/fore   |  7 +++++++
 snippets/cperl-mode/getopt |  2 +-
 snippets/cperl-mode/sub    | 16 ++++++++++++++++
 3 files changed, 24 insertions(+), 1 deletion(-)
 create mode 100644 snippets/cperl-mode/fore
 create mode 100644 snippets/cperl-mode/sub

diff --git a/snippets/cperl-mode/fore b/snippets/cperl-mode/fore
new file mode 100644
index 00000000..70607982
--- /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 8e032f32..ce9297c0 100644
--- 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
index 00000000..c41d5f84
--- /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
-- 
2.47.3