diff options
author | Tobias Klauser <tklauser@distanz.ch> | 2014-03-13 10:40:19 +0100 |
---|---|---|
committer | Tobias Klauser <tklauser@distanz.ch> | 2014-03-13 10:40:19 +0100 |
commit | 77a122f0581d02845d8c7f0c1b889984a2627a35 (patch) | |
tree | cc77d8478ebea02b5c46b819639c5e1cae26565f /.vim/snippets/perl.snippets | |
parent | 5712528bbf80bb8f7b79ea5cdb94314659addba7 (diff) |
Add snipMate
Diffstat (limited to '.vim/snippets/perl.snippets')
-rw-r--r-- | .vim/snippets/perl.snippets | 97 |
1 files changed, 97 insertions, 0 deletions
diff --git a/.vim/snippets/perl.snippets b/.vim/snippets/perl.snippets new file mode 100644 index 0000000..c85ff11 --- /dev/null +++ b/.vim/snippets/perl.snippets @@ -0,0 +1,97 @@ +# #!/usr/bin/perl +snippet #! + #!/usr/bin/perl + +# Hash Pointer +snippet . + => +# Function +snippet sub + sub ${1:function_name} { + ${2:#body ...} + } +# Conditional +snippet if + if (${1}) { + ${2:# body...} + } +# Conditional if..else +snippet ife + if (${1}) { + ${2:# body...} + } + else { + ${3:# else...} + } +# Conditional if..elsif..else +snippet ifee + if (${1}) { + ${2:# body...} + } + elsif (${3}) { + ${4:# elsif...} + } + else { + ${5:# else...} + } +# Conditional One-line +snippet xif + ${1:expression} if ${2:condition};${3} +# Unless conditional +snippet unless + unless (${1}) { + ${2:# body...} + } +# Unless conditional One-line +snippet xunless + ${1:expression} unless ${2:condition};${3} +# Try/Except +snippet eval + eval { + ${1:# do something risky...} + }; + if ($@) { + ${2:# handle failure...} + } +# While Loop +snippet wh + while (${1}) { + ${2:# body...} + } +# While Loop One-line +snippet xwh + ${1:expression} while ${2:condition};${3} +# C-style For Loop +snippet cfor + for (my $${2:var} = 0; $$2 < ${1:count}; $$2${3:++}) { + ${4:# body...} + } +# For loop one-line +snippet xfor + ${1:expression} for @${2:array};${3} +# Foreach Loop +snippet for + foreach my $${1:x} (@${2:array}) { + ${3:# body...} + } +# Foreach Loop One-line +snippet fore + ${1:expression} foreach @${2:array};${3} +# Package +snippet cl + package ${1:ClassName}; + + use base qw(${2:ParentClass}); + + sub new { + my $class = shift; + $class = ref $class if ref $class; + my $self = bless {}, $class; + $self; + } + + 1;${3} +# Read File +snippet slurp + my $${1:var}; + { local $/ = undef; local *FILE; open FILE, "<${2:file}"; $$1 = <FILE>; close FILE }${3} |