update the perl snippets to use my helper functions

1 files changed, 22 insertions, 9 deletions

diff --git a/vim/after/ftplugin/perl_snippets.vim b/vim/after/ftplugin/perl_snippets.vim
index 7926929..5e8f936 100644
--- a/vim/after/ftplugin/perl_snippets.vim
+++ b/vim/after/ftplugin/perl_snippets.vim
@@ -7,12 +7,25 @@ endif
 
 source ~/.vim/after/ftplugin/moose_snippets.vim
 
-let st = g:snip_start_tag
-let et = g:snip_end_tag
-let cd = g:snip_elem_delim
-
-exec "Snippet for for my \$".st."var".et." (".st."list".et.") {<CR>".st.et."<CR>}<CR>"
-exec "Snippet fore for my \$".st."var".et." (@".st."array".et.") {<CR>".st.et."<CR>}<CR>"
-exec "Snippet fori for (my \$".st."var".et." = 0; \$".st."var".et." < ".st."expression".et."; ++\$".st."var".et.") {<CR>".st.et."<CR>}<CR>"
-exec "Snippet eval eval {<CR>".st.et."<CR>};<CR><CR>if ($@) {<CR>".st.et."<CR>}<CR>"
-exec "Snippet st map { $_->[0] }<CR>sort { $a->[1] ".st."cmp".et." $b->[1] }<CR>map { [$_, ".st."function".et."] }<CR>".st."list".et
+call Snippet('for', [
+            \"for my $<{var}> (<{list}>) {",
+            \    "<{}>",
+            \"}"])
+call Snippet('fora', [
+            \"for my $<{var}> (@<{array}>) {",
+            \    "<{}>",
+            \"}"])
+call Snippet('fori', [
+            \"for (my $<{var}> = 0; $<{var}> < <{expr}>; ++$<{var}>) {",
+            \    "<{}>",
+            \"}"])
+call Snippet('eval', [
+            \"eval {<{}>};",
+            \"if ($@) {",
+            \    "<{}>",
+            \"}"])
+call Snippet('st', [
+            \"map { $_->[0] }",
+            \"sort { $a->[1] <{cmp}> $b->[1] }",
+            \"map { [$_, <{function}>] }",
+            \"<{list}>"])