" programming/perl specifics

set comments=n:#,fb:-,fb:+,fb:*

"autocmd! Syntax perl call Set_Syntax_Hilight('perl')
call Set_Syntax_Hilight('perl')

nmap m a#  location where non-default modules live<CR>use lib '$HOME/comp/perl/private';<CR>use lib '$HOME/comp/perl/dist-test';<CR>
nmap M a#  location where non-default modules live<CR>iuse lib 'modules';<CR>

nmap X ause Exporter ();<CR>our ( @ISA , @EXPORT , @EXPORT_OK , %EXPORT_TAGS );<CR>@ISA = qw(Exporter);<CR><CR>@EXPORT = ();<CR><CR>%EXPORT_TAGS = ( => [ qw() ]);<CR><CR>push @{ $EXPORT_TAGS{'all'} } , @{ $_ } foreach values %EXPORT_TAGS;<CR><CR>@EXPORT_OK = @{ $EXPORT_TAGS{'all'} };


nmap ;pfb :r $HOME/comp/perl/modules/.mod-func-pod-start<CR>
nmap ;pob :r $HOME/comp/perl/modules/.mod-oo-pod-start<CR>
nmap ;pfun :r $HOME/comp/perl/modules/.mod-func-pod<CR>
nmap ;pend  :r $HOME/comp/perl/modules/.mod-pod-end<CR>

iab fe foreach
iab forea foreach

iab refs references
iab Ref Reference

iab arr array
iab Arr Array

iab Arref Array reference
iab Arrefs Array references
iab Arrref Array reference
iab Arrrefs Array references
iab arref array reference
iab arrefs array references
iab arrref array reference
iab arrrefs array references

iab hashef hash reference
iab Hashref Hash reference
iab hashefs hash references
iab Hashrefs Hash references


" Vim compiler file
" Compiler:     Perl syntax checks (perl -Wc) v1.1
" Maintainer:   Lukas Zapletal <Lukas.Zapletal@seznam.cz>
" Last Change:  2001 Sep 10

" Changelog:
"
" 1.1: fixed ' near "..." '
" 1.0: initial version
" 

" Todo:
" Include ' near "..." ' in the error message

if exists("current_compiler")
  finish
endif
let current_compiler = "perl"

" there is no pipes under windows, vi use temp file
" and as perl outputs to stderr this have to be handled corectly
if has("win32")
  setlocal shellpipe=1>&2\ 2>
endif

map <F5> :setlocal makeprg=perl\ -c\ %\|make<CR>
map <F6> :setlocal makeprg=perl\ %\|make<CR>

" Sample errors:
" Type of arg 1 to push must be array (not hash element) at NFrame.pm line 129, near ");"
" Useless use of a constanst at test.pl line 5.
setlocal errorformat=%m\ at\ %f\ line\ %l%.%#,
                    \%-G%.%# " ignore any lines that didn't match one of the patterns above