mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-11-20 14:04:03 +01:00
48 lines
1.3 KiB
Plaintext
48 lines
1.3 KiB
Plaintext
#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.
|
|
#
|
|
# Bugs:
|
|
# - can't cope with multiple installs of Perl
|
|
|
|
# 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
|
|
|
|
compadd - $_perl_modules
|