/
perl.vim
16 lines (14 loc) · 1020 Bytes
/
perl.vim
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
setlocal iskeyword+=:
setlocal isfname-=-
if filereadable( getcwd() . '/cpanfile' )
nnoremap <buffer> <Leader>lt :<C-u>! carton exec -- prove --nocolor -v %<CR>
nnoremap <buffer> <expr> <Leader>lu ':! carton exec -- ' . $HOME . '/.vim/libexec/vprove ' . expand('<cword>') . ' --nocolor %<CR>'
nnoremap <buffer> <expr> <Leader>ll ':let @* = "TEST_METHOD=' . expand('<cword>') . ' carton exec -- prove -lvr ' . expand('%') . '"<CR>'
nnoremap <buffer> <expr> <Leader>la ':let @* = "carton exec -- prove -lvr ' . expand('%') . '"<CR>'
else
nnoremap <buffer> <Leader>lt :<C-u>! prove --nocolor -v %<CR>
nnoremap <buffer> <expr> <Leader>lu ':!' . $HOME . '/.vim/libexec/vprove ' . expand('<cword>') . ' --nocolor %<CR>'
nnoremap <buffer> <expr> <Leader>ll ':let @* = "TEST_METHOD=' . expand('<cword>') . ' prove -lvr ' . expand('%') . '"<CR>'
nnoremap <buffer> <expr> <Leader>la ':let @* = "prove -lvr ' . expand('%') . '"<CR>'
endif
inoremap <buffer> <silent> <expr> <C-]> gabbrev#i_start()