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