#!pshcomplete
# perldoc

sub _perldoc {
    my ($cur, $line, $start, $cmd) = @_;
 
    # if prev argument is -f, return possible filename completions.
    # we could be a little smarter here and return matches against
    # 'makefile Makefile *.mk', whatever exists ##''
    my ($prev) = substr($line, 0, $start) =~ /(\S+)\s+$/;

    if ($prev =~ /^-.*f$/) {
        return @Psh::Completion::keyword;
    }
 
	return ();
}

complete -F _perldoc perldoc