codekingpro/portable-devtools

1" Vim filetype plugin file2" Language:      Perl3" Maintainer:    vim-perl <vim-perl@googlegroups.com> (need to be subscribed to post)4" Homepage:      https://github.com/vim-perl/vim-perl5" Bugs/requests: https://github.com/vim-perl/vim-perl/issues6" License:       Vim License (see :help license)7" Last Change:   2021 Nov 108"                2023 Sep 07 by Vim Project (safety check: don't execute perl9"                    from current directory)10"                2024 Jan 14 by Vim Project (browsefilter)11"                2024 May 24 by Riley Bruins <ribru17@gmail.com> ('commentstring')12 13if exists("b:did_ftplugin") | finish | endif14let b:did_ftplugin = 115 16" Make sure the continuation lines below do not cause problems in17" compatibility mode.18let s:save_cpo = &cpo19set cpo-=C20 21setlocal formatoptions-=t22setlocal formatoptions+=crqol23setlocal keywordprg=perldoc\ -f24 25setlocal comments=:#26setlocal commentstring=#\ %s27 28" Provided by Ned Konz <ned at bike-nomad dot com>29"---------------------------------------------30setlocal include=\\<\\(use\\\|require\\)\\>31" '+' is removed to support plugins in Catalyst or DBIx::Class32" where the leading plus indicates a fully-qualified module name.33setlocal includeexpr=substitute(substitute(substitute(substitute(v:fname,'+','',''),'::','/','g'),'->\*','',''),'$','.pm','')34setlocal define=[^A-Za-z_]35setlocal iskeyword+=:36 37" The following line changes a global variable but is necessary to make38" gf and similar commands work. Thanks to Andrew Pimlott for pointing39" out the problem.40let s:old_isfname = &isfname41set isfname+=:42let s:new_isfname = &isfname43 44augroup perl_global_options45  au!46  exe "au BufEnter * if &filetype == 'perl' | let &isfname = '" . s:new_isfname . "' | endif"47  exe "au BufLeave * if &filetype == 'perl' | let &isfname = '" . s:old_isfname . "' | endif"48augroup END49 50" Undo the stuff we changed.51let b:undo_ftplugin = "setlocal fo< kp< com< cms< inc< inex< def< isk<" .52      \               " | let &isfname = '" .  s:old_isfname . "'"53 54if get(g:, 'perl_fold', 0)55  setlocal foldmethod=syntax56  let b:undo_ftplugin .= " | setlocal fdm<"57endif58 59" Set this once, globally.60if !exists("perlpath")61    " safety check: don't execute perl binary by default62    if dist#vim#IsSafeExecutable('perl', 'perl')63      try64	if &shellxquote != '"'65	    let perlpath = system('perl -e "print join(q/,/,@INC)"')66	else67	    let perlpath = system("perl -e 'print join(q/,/,@INC)'")68	endif69	let perlpath = substitute(perlpath,',.$',',,','')70      catch /E145:/71	let perlpath = ".,,"72      endtry73    else74	" If we can't call perl to get its path, just default to using the75	" current directory and the directory of the current file.76	let perlpath = ".,,"77    endif78endif79 80" Append perlpath to the existing path value, if it is set.  Since we don't81" use += to do it because of the commas in perlpath, we have to handle the82" global / local settings, too.83if &l:path == ""84    if &g:path == ""85        let &l:path=perlpath86    else87        let &l:path=&g:path.",".perlpath88    endif89else90    let &l:path=&l:path.",".perlpath91endif92 93let b:undo_ftplugin .= " | setlocal pa<"94"---------------------------------------------95 96" Change the browse dialog to show mainly Perl-related files97if (has("gui_win32") || has("gui_gtk")) && !exists("b:browsefilter")98    let b:browsefilter = "Perl Source Files (*.pl)\t*.pl\n" .99		       \ "Perl Modules (*.pm)\t*.pm\n" .100		       \ "Perl Documentation Files (*.pod)\t*.pod\n"101    if has("win32")102	let b:browsefilter .= "All Files (*.*)\t*\n"103    else104	let b:browsefilter .= "All Files (*)\t*\n"105    endif106    let b:undo_ftplugin .= " | unlet! b:browsefilter"107endif108 109" Proper matching for matchit plugin110if exists("loaded_matchit") && !exists("b:match_words")111    let b:match_skip = 's:comment\|string\|perlQQ\|perlShellCommand\|perlHereDoc\|perlSubstitution\|perlTranslation\|perlMatch\|perlFormatField'112    let b:match_words = '\<if\>:\<elsif\>:\<else\>'113    let b:undo_ftplugin .= " | unlet! b:match_words b:match_skip"114endif115 116" Restore the saved compatibility options.117let &cpo = s:save_cpo118unlet s:save_cpo s:old_isfname s:new_isfname119