neosnippet.vim/neosnippets/perl.snip
2013-12-28 20:20:15 +09:00

78 lines
999 B
Plaintext

snippet perl
#!/opt/local/bin/perl
use strict;
use warnings;
${1}
snippet sub
sub ${1:#:function_name} {
${2:TARGET}
}
snippet if
if (${1:#:condition}) {
${2:TARGET}
}
snippet ife
if (${1:#:condition}) {
${2:TARGET}
} else {
${3:#:else...}
}
snippet ifee
if (${1:#:condition}) {
${2:TARGET}
} elsif (${3}) {
${4:#:elsif...}
} else {
${5:#:else...}
}
snippet xif
${1:#:expression} if ${2:#:condition};
snippet while
abbr wh
while (${1:#:condition}) {
${2:TARGET}
}
snippet xwhile
abbr xwh
${1:#:expression} while ${2:#:condition};
snippet for
for (my $${1:#:var} = 0; $$1 < ${2:#:expression}; $$1++) {
${3:TARGET}
}
snippet fore
for ${1} (${2:#:expression}){
${3:TARGET}
}
snippet xfor
${1:#:expression} for @${2:#:array};
snippet unless
abbr un
unless (${1:condition}) {
${2:TARGET}
}
snippet xunless
abbr xun
${1:#:expression} unless ${2:#:condition};
snippet eval
eval {
${1:TARGET}
};
if ($@) {
${2:#:handle failure...}
}