From 6280e42f6b5fdf7e414b895604032a0e038268cc Mon Sep 17 00:00:00 2001
From: Mikko Johannes Koivunalho <mikko.koivunalho@iki.fi>
Date: Sat, 4 Oct 2025 23:10:17 +0200
Subject: [PATCH] Add completion for mech-dump

    Part of WWW-Mechanize Perl distribution https://github.com/libwww-perl/WWW-Mechanize
    WWW::Mechanize, or Mech for short, is a Perl module
    for stateful programmatic web browsing, used for automating interaction with websites.

    GitHub Issue https://github.com/scop/bash-completion/issues/474
---
 completions/mech-dump | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 completions/mech-dump

diff --git a/completions/mech-dump b/completions/mech-dump
new file mode 100644
index 00000000000..31a3b5882bb
--- /dev/null
+++ b/completions/mech-dump
@@ -0,0 +1,36 @@
+#!/usr/bin/env bash
+
+# Simultaneously committed to https://github.com/libwww-perl/WWW-Mechanize
+
+__mech_dump_init_completion() {
+    COMPREPLY=()
+    _get_comp_words_by_ref cur prev words cword
+}
+__mech_dump_command_line_options() {
+    opts=(
+            --headers --forms --links --images --all --test
+            --user= --password= --cookie-file= --agent
+            --agent-alias= --absolute --help --version
+            *
+        )
+    echo "${opts[*]}"
+}
+
+_mech_dump() {
+    local cur
+    if declare -F _init_completion >/dev/null 2>&1; then
+        _init_completion
+    else
+        __mech_dump_init_completion
+    fi
+
+    keys=( )
+    cur=${COMP_WORDS[COMP_CWORD]}
+
+    keys+=( "$(__mech_dump_command_line_options)" )
+    # shellcheck disable=SC2207
+    COMPREPLY=( $( compgen -W "${keys[*]}" -- "$cur" ) )
+    return 0
+}
+
+complete -F _mech_dump mech-dump