From 6c18848a903eb3ee06dccd915859ce64195c257c Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Mon, 15 Apr 2024 18:24:27 +0200 Subject: Adding upstream version 1:2.11. Signed-off-by: Daniel Baumann --- completions/perlcritic | 51 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) create mode 100644 completions/perlcritic (limited to 'completions/perlcritic') diff --git a/completions/perlcritic b/completions/perlcritic new file mode 100644 index 0000000..7843549 --- /dev/null +++ b/completions/perlcritic @@ -0,0 +1,51 @@ +# perlcritic(1) completion -*- shell-script -*- + +_perlcritic() +{ + local cur prev words cword + _init_completion || return + + case $prev in + --help | --version | --top | --include | --exclude | --single-policy | \ + --colo?(u)r-severity-* | --program-extensions | -[?HVs]) + return + ;; + --severity) + COMPREPLY=($(compgen -W "{1..5} brutal cruel harsh stern gentle" \ + -- "$cur")) + return + ;; + --profile | -p) + _filedir perlcriticrc + return + ;; + --theme) + COMPREPLY=($(compgen -W '$("$1" --list-themes 2>/dev/null)' \ + -- "$cur")) + return + ;; + --profile-strictness) + COMPREPLY=($(compgen -W 'warn fatal quiet' -- "$cur")) + return + ;; + --verbose) + COMPREPLY=($(compgen -W '{1..11}' -- "$cur")) + return + ;; + --pager) + compopt -o filenames + COMPREPLY=($(compgen -c -- "$cur")) + return + ;; + esac + + if [[ $cur == -* ]]; then + COMPREPLY=($(compgen -W '$(_parse_usage "$1")' -- "$cur")) + return + fi + + _filedir 'p[lm]' +} && + complete -F _perlcritic perlcritic + +# ex: filetype=sh -- cgit v1.2.3