13 files changed, 66 insertions, 0 deletions
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/eval b/.emacs.d/mysnippets/text-mode/perl-mode/eval
new file mode 100644
index 0000000..c1f1e1b
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/eval
@@ -0,0 +1,8 @@
+#name : eval { ... } if ($@) { ... }
+# --
+eval {
+    ${1:# do something risky...}
+};
+if (\$@) {
+    ${2:# handle failure...}
+}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/for b/.emacs.d/mysnippets/text-mode/perl-mode/for
new file mode 100644
index 0000000..ec5532f
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/for
@@ -0,0 +1,5 @@
+#name : for (...) { ... }
+# --
+for (my \$${1:var} = 0; \$$1 < ${2:expression}; \$$1++) {
+    ${3:# body...}
+}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/fore b/.emacs.d/mysnippets/text-mode/perl-mode/fore
new file mode 100644
index 0000000..c878a0e
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/fore
@@ -0,0 +1,5 @@
+#name : foreach ... { ... }
+# --
+foreach my \$${1:x} (@${2:array}) {
+    ${3:# body...}
+}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/if b/.emacs.d/mysnippets/text-mode/perl-mode/if
new file mode 100644
index 0000000..3191b97
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/if
@@ -0,0 +1,5 @@
+#name : if (...) { ... }
+# --
+if ($1) {
+    $0
+}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/ife b/.emacs.d/mysnippets/text-mode/perl-mode/ife
new file mode 100644
index 0000000..23f7cf6
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/ife
@@ -0,0 +1,7 @@
+#name : if (...) { ... } else { ... }
+# --
+if ($1) {
+    $2
+} else {
+    $3
+}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/ifee b/.emacs.d/mysnippets/text-mode/perl-mode/ifee
new file mode 100644
index 0000000..7c187d1
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/ifee
@@ -0,0 +1,9 @@
+#name : if, elsif, else ...
+# --
+if ($1) {
+        ${2:# body...}
+} elsif ($3) {
+        ${4:# elsif...}
+} else {
+        ${5:# else...}
+}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/sub b/.emacs.d/mysnippets/text-mode/perl-mode/sub
new file mode 100644
index 0000000..5ab54d7
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/sub
@@ -0,0 +1,5 @@
+#name : sub ... { ... }
+# --
+sub ${1:function_name} {
+    $0
+}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/unless b/.emacs.d/mysnippets/text-mode/perl-mode/unless
new file mode 100644
index 0000000..baeffa2
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/unless
@@ -0,0 +1,5 @@
+#name : unless (...) { ... }
+# --
+unless ($1) {
+    $0
+}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/while b/.emacs.d/mysnippets/text-mode/perl-mode/while
new file mode 100644
index 0000000..9c2c470
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/while
@@ -0,0 +1,5 @@
+#name : while (...) { ... }
+# --
+while ($1) {
+    $0
+}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/xfore b/.emacs.d/mysnippets/text-mode/perl-mode/xfore
new file mode 100644
index 0000000..58e455d
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/xfore
@@ -0,0 +1,3 @@
+#name : ... foreach ...
+# --
+${1:expression} foreach @${2:array};
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/xif b/.emacs.d/mysnippets/text-mode/perl-mode/xif
new file mode 100644
index 0000000..1d4dba8
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/xif
@@ -0,0 +1,3 @@
+#name : ... if ...
+# --
+${1:expression} if ${2:condition}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/xunless b/.emacs.d/mysnippets/text-mode/perl-mode/xunless
new file mode 100644
index 0000000..f456db3
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/xunless
@@ -0,0 +1,3 @@
+#name : ... unless ...
+# --
+${1:expression} unless ${2:condition}
+\ No newline at end of file
diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/xwhile b/.emacs.d/mysnippets/text-mode/perl-mode/xwhile
new file mode 100644
index 0000000..2515586
--- /dev/null
+++ b/.emacs.d/mysnippets/text-mode/perl-mode/xwhile
@@ -0,0 +1,3 @@
+#name : ... while ...
+# --
+${1:expression} while ${2:condition};
+\ No newline at end of file

diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/eval b/.emacs.d/mysnippets/text-mode/perl-mode/eval new file mode 100644 index 0000000..c1f1e1b --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/eval
@@ -0,0 +1,8 @@
	1	#name : eval { ... } if ($@) { ... }
	2	# --
	3	eval {
	4	${1:# do something risky...}
	5	};
	6	if (\$@) {
	7	${2:# handle failure...}
	8	} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/for b/.emacs.d/mysnippets/text-mode/perl-mode/for new file mode 100644 index 0000000..ec5532f --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/for
@@ -0,0 +1,5 @@
	1	#name : for (...) { ... }
	2	# --
	3	for (my \$${1:var} = 0; \$$1 < ${2:expression}; \$$1++) {
	4	${3:# body...}
	5	} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/fore b/.emacs.d/mysnippets/text-mode/perl-mode/fore new file mode 100644 index 0000000..c878a0e --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/fore
@@ -0,0 +1,5 @@
	1	#name : foreach ... { ... }
	2	# --
	3	foreach my \$${1:x} (@${2:array}) {
	4	${3:# body...}
	5	} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/if b/.emacs.d/mysnippets/text-mode/perl-mode/if new file mode 100644 index 0000000..3191b97 --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/if
@@ -0,0 +1,5 @@
	1	#name : if (...) { ... }
	2	# --
	3	if ($1) {
	4	$0
	5	} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/ife b/.emacs.d/mysnippets/text-mode/perl-mode/ife new file mode 100644 index 0000000..23f7cf6 --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/ife
@@ -0,0 +1,7 @@
	1	#name : if (...) { ... } else { ... }
	2	# --
	3	if ($1) {
	4	$2
	5	} else {
	6	$3
	7	} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/ifee b/.emacs.d/mysnippets/text-mode/perl-mode/ifee new file mode 100644 index 0000000..7c187d1 --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/ifee
@@ -0,0 +1,9 @@
	1	#name : if, elsif, else ...
	2	# --
	3	if ($1) {
	4	${2:# body...}
	5	} elsif ($3) {
	6	${4:# elsif...}
	7	} else {
	8	${5:# else...}
	9	} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/sub b/.emacs.d/mysnippets/text-mode/perl-mode/sub new file mode 100644 index 0000000..5ab54d7 --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/sub
@@ -0,0 +1,5 @@
	1	#name : sub ... { ... }
	2	# --
	3	sub ${1:function_name} {
	4	$0
	5	} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/unless b/.emacs.d/mysnippets/text-mode/perl-mode/unless new file mode 100644 index 0000000..baeffa2 --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/unless
@@ -0,0 +1,5 @@
	1	#name : unless (...) { ... }
	2	# --
	3	unless ($1) {
	4	$0
	5	} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/while b/.emacs.d/mysnippets/text-mode/perl-mode/while new file mode 100644 index 0000000..9c2c470 --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/while
@@ -0,0 +1,5 @@
	1	#name : while (...) { ... }
	2	# --
	3	while ($1) {
	4	$0
	5	} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/xfore b/.emacs.d/mysnippets/text-mode/perl-mode/xfore new file mode 100644 index 0000000..58e455d --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/xfore
@@ -0,0 +1,3 @@
	1	#name : ... foreach ...
	2	# --
	3	${1:expression} foreach @${2:array}; \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/xif b/.emacs.d/mysnippets/text-mode/perl-mode/xif new file mode 100644 index 0000000..1d4dba8 --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/xif
@@ -0,0 +1,3 @@
	1	#name : ... if ...
	2	# --
	3	${1:expression} if ${2:condition} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/xunless b/.emacs.d/mysnippets/text-mode/perl-mode/xunless new file mode 100644 index 0000000..f456db3 --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/xunless
@@ -0,0 +1,3 @@
	1	#name : ... unless ...
	2	# --
	3	${1:expression} unless ${2:condition} \ No newline at end of file


diff --git a/.emacs.d/mysnippets/text-mode/perl-mode/xwhile b/.emacs.d/mysnippets/text-mode/perl-mode/xwhile new file mode 100644 index 0000000..2515586 --- /dev/null +++ b/.emacs.d/mysnippets/text-mode/perl-mode/xwhile
@@ -0,0 +1,3 @@
	1	#name : ... while ...
	2	# --
	3	${1:expression} while ${2:condition}; \ No newline at end of file