diff options
Diffstat (limited to 'perl-mode')
| -rw-r--r-- | perl-mode/.yas-parents | 1 | ||||
| -rw-r--r-- | perl-mode/eval | 9 | ||||
| -rw-r--r-- | perl-mode/for | 6 | ||||
| -rw-r--r-- | perl-mode/fore | 6 | ||||
| -rw-r--r-- | perl-mode/if | 6 | ||||
| -rw-r--r-- | perl-mode/ife | 8 | ||||
| -rw-r--r-- | perl-mode/ifee | 10 | ||||
| -rw-r--r-- | perl-mode/sub | 6 | ||||
| -rw-r--r-- | perl-mode/unless | 6 | ||||
| -rw-r--r-- | perl-mode/while | 6 | ||||
| -rw-r--r-- | perl-mode/xfore | 4 | ||||
| -rw-r--r-- | perl-mode/xif | 4 | ||||
| -rw-r--r-- | perl-mode/xunless | 4 | ||||
| -rw-r--r-- | perl-mode/xwhile | 4 |
14 files changed, 80 insertions, 0 deletions
diff --git a/perl-mode/.yas-parents b/perl-mode/.yas-parents new file mode 100644 index 0000000..eed5b44 --- /dev/null +++ b/perl-mode/.yas-parents @@ -0,0 +1 @@ +text-mode diff --git a/perl-mode/eval b/perl-mode/eval new file mode 100644 index 0000000..a484014 --- /dev/null +++ b/perl-mode/eval @@ -0,0 +1,9 @@ +# name: eval { ... } if ($@) { ... } +# key: eval +# -- +eval { + ${1:# do something risky...} +}; +if (\$@) { + ${2:# handle failure...} +}
\ No newline at end of file diff --git a/perl-mode/for b/perl-mode/for new file mode 100644 index 0000000..1ba240f --- /dev/null +++ b/perl-mode/for @@ -0,0 +1,6 @@ +# name: for (...) { ... } +# key: for +# -- +for (my \$${1:var} = 0; \$$1 < ${2:expression}; \$$1++) { + ${3:# body...} +}
\ No newline at end of file diff --git a/perl-mode/fore b/perl-mode/fore new file mode 100644 index 0000000..c3b81d5 --- /dev/null +++ b/perl-mode/fore @@ -0,0 +1,6 @@ +# name: foreach ... { ... } +# key: fore +# -- +foreach my \$${1:x} (@${2:array}) { + ${3:# body...} +}
\ No newline at end of file diff --git a/perl-mode/if b/perl-mode/if new file mode 100644 index 0000000..567db90 --- /dev/null +++ b/perl-mode/if @@ -0,0 +1,6 @@ +# name: if (...) { ... } +# key: if +# -- +if ($1) { + $0 +}
\ No newline at end of file diff --git a/perl-mode/ife b/perl-mode/ife new file mode 100644 index 0000000..f278f21 --- /dev/null +++ b/perl-mode/ife @@ -0,0 +1,8 @@ +# name: if (...) { ... } else { ... } +# key: ife +# -- +if ($1) { + $2 +} else { + $3 +}
\ No newline at end of file diff --git a/perl-mode/ifee b/perl-mode/ifee new file mode 100644 index 0000000..d1bf237 --- /dev/null +++ b/perl-mode/ifee @@ -0,0 +1,10 @@ +# name: if, elsif, else ... +# key: ifee +# -- +if ($1) { + ${2:# body...} +} elsif ($3) { + ${4:# elsif...} +} else { + ${5:# else...} +}
\ No newline at end of file diff --git a/perl-mode/sub b/perl-mode/sub new file mode 100644 index 0000000..05607d6 --- /dev/null +++ b/perl-mode/sub @@ -0,0 +1,6 @@ +# name: sub ... { ... } +# key: sub +# -- +sub ${1:function_name} { + $0 +}
\ No newline at end of file diff --git a/perl-mode/unless b/perl-mode/unless new file mode 100644 index 0000000..f91a652 --- /dev/null +++ b/perl-mode/unless @@ -0,0 +1,6 @@ +# name: unless (...) { ... } +# key: unless +# -- +unless ($1) { + $0 +}
\ No newline at end of file diff --git a/perl-mode/while b/perl-mode/while new file mode 100644 index 0000000..2744530 --- /dev/null +++ b/perl-mode/while @@ -0,0 +1,6 @@ +# name: while (...) { ... } +# key: while +# -- +while ($1) { + $0 +}
\ No newline at end of file diff --git a/perl-mode/xfore b/perl-mode/xfore new file mode 100644 index 0000000..018e140 --- /dev/null +++ b/perl-mode/xfore @@ -0,0 +1,4 @@ +# name: ... foreach ... +# key: xfore +# -- +${1:expression} foreach @${2:array};
\ No newline at end of file diff --git a/perl-mode/xif b/perl-mode/xif new file mode 100644 index 0000000..ca8b563 --- /dev/null +++ b/perl-mode/xif @@ -0,0 +1,4 @@ +# name: ... if ... +# key: xif +# -- +${1:expression} if ${2:condition}
\ No newline at end of file diff --git a/perl-mode/xunless b/perl-mode/xunless new file mode 100644 index 0000000..dbb7d7d --- /dev/null +++ b/perl-mode/xunless @@ -0,0 +1,4 @@ +# name: ... unless ... +# key: xunless +# -- +${1:expression} unless ${2:condition}
\ No newline at end of file diff --git a/perl-mode/xwhile b/perl-mode/xwhile new file mode 100644 index 0000000..14c6308 --- /dev/null +++ b/perl-mode/xwhile @@ -0,0 +1,4 @@ +# name: ... while ... +# key: xwhile +# -- +${1:expression} while ${2:condition};
\ No newline at end of file |