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