Version 0.61803399 (first commit)

after/ftplugin/perl_snips.vim

@@ -0,0 +1,37 @@
+if !exists('loaded_snips') || exists('b:did_perl_snips')
+	fini
+en
+let b:did_perl_snips = 1
+
+" Hash Pointer
+exe 'Snipp .  =>'
+" Function
+exe "Snipp sub sub ${1:function_name} {\n\t${2:#body ...}\n}"
+" Conditional
+exe "Snipp if if (${1}) {\n\t${2:# body...}\n}"
+" Conditional if..else
+exe "Snipp ife if (${1}) {\n\t${2:# body...}\n} else {\n\t${3:# else...}\n}"
+" Conditional if..elsif..else
+exe "Snipp ifee if (${1}) {\n\t${2:# body...}\n} elsif (${3}) {\n\t${4:# elsif...}\n} else {\n\t${5:# else...}\n}"
+" Conditional One-line
+exe 'Snipp xif ${1:expression} if ${2:condition};${3}'
+" Unless conditional
+exe "Snipp unless unless (${1}) {\n\t${2:# body...}\n}"
+" Unless conditional One-line
+exe 'Snipp xunless ${1:expression} unless ${2:condition};${3}'
+" Try/Except
+exe "Snipp eval eval {\n\t${1:# do something risky...}\n};\nif ($@) {\n\t${2:# handle failure...}\n}"
+" While Loop
+exe "Snipp wh while (${1}) {\n\t${2:# body...}\n}"
+" While Loop One-line
+exe "Snipp xwh ${1:expression} while ${2:condition};${3}"
+" For Loop
+exe "Snipp for for (my $${2:var} = 0; $$2 < ${1:count}; $$2${3:++}) {\n\t${4:# body...}\n}"
+" Foreach Loop
+exe "Snipp fore foreach my $${1:x} (@${2:array}) {\n\t${3:# body...}\n}"
+" Foreach Loop One-line
+exe 'Snipp xfore ${1:expression} foreach @${2:array};${3}'
+" Package
+exe "Snipp cl package ${1:ClassName};\n\nuse base qw(${2:ParentClass});\n\nsub new {\n\tmy $class = shift;\n\t$class = ref $class if ref $class;\n\tmy $self = bless {}, $class;\n\t$self;\n}\n\n1;${3}"
+" Read File
+exe "Snipp slurp my $${1:var};\n{ local $/ = undef; local *FILE; open FILE, \"<${2:file}\"; $$1 = <FILE>; close FILE }${2}"