diff options
| -rw-r--r-- | Completion/User/_perl_modules | 111 |
1 files changed, 0 insertions, 111 deletions
diff --git a/Completion/User/_perl_modules b/Completion/User/_perl_modules deleted file mode 100644 index 9bfc0463d..000000000 --- a/Completion/User/_perl_modules +++ /dev/null @@ -1,111 +0,0 @@ -#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. -# -# Available styles: -# -# * try-to-use-pminst -# -# Set 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). - -_perl_modules () { - local opts - zparseopts -D -a opts S: q - - # Set a sensible default caching policy. This has to be done inside - # this function otherwise we wouldn't know the context for the style. - local update_policy - zstyle -s ":completion:${curcontext}:" cache-policy update_policy - if [[ -z "$update_policy" ]]; then - zstyle ":completion:${curcontext}:" cache-policy \ - _perl_modules_caching_policy - fi - - local perl=${words[0]%doc} perl_modules - if whence $perl >/dev/null; then - perl_modules=_${${perl//[^[:alnum:]]/_}#_}_modules - elif (( ${+commands[perl]} )); then - perl=perl - perl_modules=_perl_modules - else - perl= - perl_modules=_unknown_perl_modules - fi - - if ( [[ ${(P)+perl_modules} -eq 0 ]] || _cache_invalid $perl_modules ) && - ! _retrieve_cache ${perl_modules#_}; - then - if zstyle -t ":completion:${curcontext}:modules" try-to-use-pminst && - (( ${+commands[pminst]} )); - then - set -A $perl_modules $(pminst) - else - local inc libdir new_pms - - if [[ ${+perl} -eq 1 ]]; then - inc=( $( $perl -e 'print "@INC"' ) ) - else - # If perl isn't there, one wonders why the user's trying to - # complete Perl modules. Maybe her $path is wrong? - _message "Didn't find perl on \$PATH; guessing @INC ..." - - inc=( /usr/lib/perl5{,/{site_perl/,}<5->.([0-9]##)}(N) - ${(s.:.)PERL5LIB} ) - fi - - typeset -agU $perl_modules # $perl_modules is global, no duplicates - set -A $perl_modules - - for libdir in $inc; do - # Ignore cwd - could be too expensive e.g. if we're near / - if [[ $libdir == '.' ]]; then continue; fi - - # Find all modules - if [[ -d $libdir && -x $libdir ]]; then - new_pms=( $libdir/{[A-Z]*/***/,}*.pm~*blib* ) - new_pms=( "${(@)new_pms##$libdir/##}" ) - fi - - # Convert to Perl nomenclature - new_pms=( ${new_pms:r:fs#/#::#} ) - - set -A $perl_modules $new_pms ${(P)perl_modules} - done - fi - - _store_cache ${perl_modules#_} $perl_modules - fi - - local expl - - _wanted modules expl 'Perl modules' compadd "$opts[@]" -a $perl_modules -} - -_perl_modules_caching_policy () { - local _perllocals - - # rebuild if cache is more than a week old - oldp=( "$1"(mw+1) ) - (( $#oldp )) && return 0 - - _perllocals=( /usr/lib/perl5/**/perllocal.pod ) - - if (( $#_perllocals )); then - for pod in $_perllocals; do - [[ "$pod" -nt "$1" ]] && return 0 - done - fi - - return 1 -} - -_perl_modules "$@" |