blob: acd772b0057bd998768c2b1198ca320d2fb45f93 (
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
|
#compdef perldoc
#
# _perldoc - zsh completion function for perldoc
#
# Adam Spiers <adam@spiers.net>
#
_perldoc () {
_arguments -s \
'-h:help:' \
'(-q)-f:Perl built-in function:_perl_builtin_funcs:*:' \
'(-f)-q:Perl FAQ keyword:' \
'*:Perl pod pages:_perl_pods'
}
_perl_pods () {
local nm="$compstate[nmatches]"
_perl_modules
_perl_basepods
_path_files -J 'Perl modules and .pods' -/ -g '*.(pod|pm)'
[[ nm -ne "$compstate[nmatches]" ]]
}
_perldoc "$@"
|