Install yasnippet and vala-snippets packages

elpa/yasnippet-20160924.2001/snippets/perl-mode/.yas-parents

@@ -0,0 +1 @@
+text-mode

elpa/yasnippet-20160924.2001/snippets/perl-mode/eval

@@ -0,0 +1,9 @@
+# name: eval { ... } if ($@) { ... }
+# key: eval
+# --
+eval {
+    ${1:# do something risky...}
+};
+if (\$@) {
+    ${2:# handle failure...}
+}

elpa/yasnippet-20160924.2001/snippets/perl-mode/for

@@ -0,0 +1,6 @@
+# name: for (...) { ... }
+# key: for
+# --
+for (my \$${1:var} = 0; \$$1 < ${2:expression}; \$$1++) {
+    ${3:# body...}
+}

elpa/yasnippet-20160924.2001/snippets/perl-mode/fore

@@ -0,0 +1,6 @@
+# name: foreach ... { ... }
+# key: fore
+# --
+foreach my \$${1:x} (@${2:array}) {
+    ${3:# body...}
+}

elpa/yasnippet-20160924.2001/snippets/perl-mode/if

@@ -0,0 +1,6 @@
+# name: if (...) { ... }
+# key: if
+# --
+if ($1) {
+    $0
+}

elpa/yasnippet-20160924.2001/snippets/perl-mode/ife

@@ -0,0 +1,8 @@
+# name: if (...) { ... } else { ... }
+# key: ife
+# --
+if ($1) {
+    $2
+} else {
+    $3
+}

elpa/yasnippet-20160924.2001/snippets/perl-mode/ifee

@@ -0,0 +1,10 @@
+# name: if, elsif, else ...
+# key: ifee
+# --
+if ($1) {
+	${2:# body...}
+} elsif ($3) {
+	${4:# elsif...}
+} else {
+	${5:# else...}
+}

elpa/yasnippet-20160924.2001/snippets/perl-mode/sub

@@ -0,0 +1,6 @@
+# name: sub ... { ... }
+# key: sub
+# --
+sub ${1:function_name} {
+    $0
+}

elpa/yasnippet-20160924.2001/snippets/perl-mode/unless

@@ -0,0 +1,6 @@
+# name: unless (...) { ... }
+# key: unless
+# --
+unless ($1) {
+    $0
+}

elpa/yasnippet-20160924.2001/snippets/perl-mode/while

@@ -0,0 +1,6 @@
+# name: while (...) { ... }
+# key: while
+# --
+while ($1) {
+    $0
+}

elpa/yasnippet-20160924.2001/snippets/perl-mode/xfore

@@ -0,0 +1,4 @@
+# name: ... foreach ...
+# key: xfore
+# --
+${1:expression} foreach @${2:array};

elpa/yasnippet-20160924.2001/snippets/perl-mode/xif

@@ -0,0 +1,4 @@
+# name: ... if ...
+# key: xif
+# --
+${1:expression} if ${2:condition}

elpa/yasnippet-20160924.2001/snippets/perl-mode/xunless

@@ -0,0 +1,4 @@
+# name: ... unless ...
+# key: xunless
+# --
+${1:expression} unless ${2:condition}

elpa/yasnippet-20160924.2001/snippets/perl-mode/xwhile

@@ -0,0 +1,4 @@
+# name: ... while ...
+# key: xwhile
+# --
+${1:expression} while ${2:condition};