vim/UltiSnips
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge pull request #115 from heytrav/master

Browse Source 
perl: use parent in place of base and uncuddle "else" as suggested by the Perl Best Practices book.
This commit is contained in:
Holger Rapp 2013-12-02 22:32:31 -08:00
commit 179af2f970
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
UltiSnips/perl.snippets
View File

@ -4,7 +4,8 @@
snippet ife "Conditional if..else (ife)"
if ($1) {
${2:# body...}
} else {
}
else {
${3:# else...}
}
@ -13,9 +14,11 @@ endsnippet
snippet ifee "Conditional if..elsif..else (ifee)"
if ($1) {
${2:# body...}
} elsif ($3) {
}
elsif ($3) {
${4:# elsif...}
} else {
}
else {
${5:# else...}
}
@ -62,7 +65,7 @@ endsnippet
snippet class "class"
package ${1:ClassName};
${2:use base qw(${3:ParentClass});}${2/.+/\n\n/}sub new {
${2:use parent qw(${3:ParentClass});}${2/.+/\n\n/}sub new {
my $class = shift;
$class = ref $class if ref $class;
my $self = bless {}, $class;
@ -74,11 +77,12 @@ ${2:use base qw(${3:ParentClass});}${2/.+/\n\n/}sub new {
endsnippet
snippet eval "eval"
local $@;
eval {
${1:# do something risky...}
};
if ($@) {
${2:# handle failure...}
if (my $${2:exception} = $@) {
${3:# handle failure...}
}
endsnippet