blob: 272ebb5e41f96890313dd4c22faf4388c590714a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#compdef pmpath pmvers pmdesc pmload pmexp pmeth pmls pmcat pman pmfunc podgrep podtoc podpath
#
# _perl_modules - zsh completion function
#
# Adam Spiers <adam@spiers.net>
#
# Calculate all installed Perl modules. The result is cached
# for future use.
#
# Change this if you have pminst and want to use it. The zsh code
# actually produces better results because pminst misses modules of
# the form Foo/bar/Baz.pm through its clumsy -d && /^[A-Z]/ && prune
# algorithm (the zsh code does almost the same, but only misses modules
# which don't begin with an uppercase letter).
local try_to_use_pminst=0
if [[ ${+_perl_modules} -eq 0 ]]; then
if [[ $try_to_use_pminst -ne 0 ]] && which pminst >/dev/null; then
_perl_modules=( $(pminst) )
else
local inc libdir new_pms
inc=( $( perl -e 'print "@INC"' ) )
typeset -agU _perl_modules # _perl_modules is global, no duplicates
_perl_modules=( )
for libdir in $inc; do
# Ignore cwd - could be too expensive e.g. if we're near /
if [[ $libdir == '.' ]]; then break; fi
# Find all modules
cd $libdir
new_pms=( {[A-Z]*/**/,}*.pm(N) )
cd $OLDPWD
# Convert to Perl nomenclature
new_pms=( ${new_pms:r:fs#/#::#} )
_perl_modules=( $new_pms $_perl_modules )
done
fi
fi
local expl
_wanted modules expl 'Perl modules' && compadd "$expl[@]" - $_perl_modules
|
