moved to Completion/Unix/Type/_perl_modules

Completion/User/_perl_modules

@@ -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 "$@"