steal sartak's perl snippets

1 files changed, 10 insertions, 17 deletions

diff --git a/vim/after/ftplugin/perl_snippets.vim b/vim/after/ftplugin/perl_snippets.vim
index 85f7367..7926929 100644
--- a/vim/after/ftplugin/perl_snippets.vim
+++ b/vim/after/ftplugin/perl_snippets.vim
@@ -1,25 +1,18 @@
+" See http://www.vim.org/scripts/script.php?script_id=1318
+" Written by Sartak, feel free to add your own!
+
 if !exists('loaded_snippet') || &cp
     finish
 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
 
-source ~/.vim/after/ftplugin/moose_snippets.vim
-
-exec "Snippet sub sub ".st."FunctionName".et." {<CR>".st.et."<CR>}<CR>".st.et
-exec "Snippet class package ".st."ClassName".et.";<CR><CR>".st.et.st."ParentClass".et.st.et.";<CR><CR>sub new {<CR>my \$class = shift;<CR>\$class = ref \$class if ref \$class;<CR>my $self = bless {}, \$class;<CR>\$self;<CR>}<CR><CR>1;<CR>".st.et
-exec "Snippet xfore ".st."expression".et." foreach @".st."array".et.";".st.et
-exec "Snippet xwhile ".st."expression".et." while ".st."condition".et.";".st.et
-exec "Snippet xunless ".st."expression".et." unless ".st."condition".et.";".st.et
-exec "Snippet slurp my $".st."var".et.";<CR><CR>{ local $/ = undef; local *FILE; open FILE, \"<".st."file".et.">\"; $".st."var".et." = <FILE>; close FILE }".st.et
-exec "Snippet if if (".st.et.") {<CR>".st.et."<CR>}<CR>".st.et
-exec "Snippet unless unless (".st.et.") {<CR>".st.et."<CR>}<CR>".st.et
-exec "Snippet ifee if (".st.et.") {<CR>".st.et."<CR><BS>} elsif (".st.et.") {<CR>".st.et."<CR><BS>} else {<CR>".st.et."<CR>}<CR><CR>".st.et
-exec "Snippet ife if (".st.et.") {<CR>".st.et."<CR>} else {<CR>".st.et."<CR>}<CR>".st.et
-exec "Snippet for for (my \$".st."var".et." = 0; \$".st."var".et." < ".st."expression".et."; \$".st."var".et."++) {<CR>".st.et."<CR>}<CR>".st.et
-exec "Snippet fore foreach my \$".st."var".et." (@".st."array".et.") {<CR>".st.et."<CR>}<CR>".st.et
-exec "Snippet eval eval {<CR>".st.et."<CR>};<CR>if ($@) {<CR>".st.et."<CR>}<CR>".st.et
-exec "Snippet while while (".st.et.") {<CR>".st.et."<CR>}<CR>".st.et
-exec "Snippet xif ".st."expression".et." if ".st."condition".et.";".st.et
+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