--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.vim/ftplugin/perl_hs12.vim	Tue May 29 08:41:42 2012 +0200
@@ -0,0 +1,39 @@
+"nach ~/.vim/ftplugin/
+"
+:setlocal
+set equalprg=perltidy\ -q
+
+nmap <C-G>f :call HS_format()<ENTER>
+nmap <C-G>p :call HS_pod()<ENTER>
+nmap <C-G>c :call HS_check()<ENTER>
+
+command! Tidy :call HS_format()
+command! Pod  :call HS_pod()
+
+function! HS_check()
+    :w
+    :!perl -Mblib -c %
+endfunc
+
+function! HS_format()
+
+    let dir = fnamemodify(expand("%"), ":p:h")
+    let rc = dir . "/.perltidyrc"
+    if filereadable(rc) != 1
+	echo "HEHE, no .perltidyrc in " . dir
+	return
+    endif
+
+    let old = &equalprg
+    let &equalprg = "perltidy -pro=" . rc
+    normal gg=G
+    normal ``
+    let &equalprg = old
+    
+endfunc
+
+function! HS_pod()
+    :!perldoc %
+endfunc
+
+" vim:ft=vim: