NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Less hacky (Score:1)
let save_cursor=getpos('.')
let SAVE_TEST_METHOD=$TEST_METHOD
call search('^sub \+\zs.*:.*Test','bcW')
let $TEST_METHOD = expand('<cword>')
exe '!printenv | sort'
let $TEST_METHOD=SAVE_TEST_METHOD
call setpos('.', save_cursor)
endfun
nnoremap <expr>
Re: (Score:2)
Excellent. I'll have to add this in.