Completion/User/_perldoc


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