| Server IP : 51.89.169.208 / Your IP : 216.73.216.94 Web Server : Apache System : Linux ns3209505.ip-198-244-202.eu 4.18.0-553.27.1.el8_10.x86_64 #1 SMP Tue Nov 5 04:50:16 EST 2024 x86_64 User : yellowleaf ( 1019) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/proc/thread-self/root/usr/share/zsh/5.5.1/functions/ |
Upload File : |
#autoload
#
# _perl_basepods - zsh completion function
#
# Adam Spiers <adam@spiers.net>
#
# Calculate all installed Perl base pods (perlfunc, perlfaq etc.).
# The result is cached for future use.
#
if (( ! $+_perl_basepods )); then
typeset -agU _perl_basepods
if (( ${+commands[basepods]} )); then
_perl_basepods=( ${$(basepods):t:r} )
else
local podpath
podpath=$(perl -MConfig -e 'print "$Config{installprivlib}/pod"')
if [[ ! -e $podpath/perl.pod ]]; then
_message "can't find perl.pod from Config.pm; giving up"
return 1
else
_perl_basepods=( ${podpath}/*.pod(:r:t) )
fi
fi
fi
local expl
_wanted pods expl 'perl base pod' compadd -a "$@" - _perl_basepods