Add Bash completion, get opts from mech-dump

Author: mikkoi

script/mech-dump

@@ -20,7 +20,7 @@ my $agent;
 my $agent_alias;
 my $cookie_filename;
 
-GetOptions(
+my %command_line_options = (
     'user=s'     => \$user,
     'password=s' => \$pass,
     headers      => sub { push( @actions, \&dump_headers ) },
@@ -35,14 +35,37 @@ GetOptions(
         );
     },
     text            => sub { push( @actions, \&dump_text ) },
-    absolute        => \$absolute,
+    'absolute!'     => \$absolute,
     'agent=s'       => \$agent,
     'agent-alias=s' => \$agent_alias,
     'cookie-file=s' => \$cookie_filename,
     help            => sub { pod2usage(1); },
-    version => sub { print STDERR $WWW::Mechanize::VERSION, "\n"; exit 0; },
+    version         => sub { print STDERR $WWW::Mechanize::VERSION, "\n"; exit 0; },
+    'completions'   => sub { completions(@ARGV); },
+);
+GetOptions(
+    %command_line_options
 ) or pod2usage(2);
 
+sub completions {
+    my (@words) = @_;
+    my @opts;
+    foreach (sort keys %command_line_options) {
+        if(m/^ (?<opt> [^!]{1,}) ! $/msx) {
+            push @opts, $+{opt}, 'no-'.$+{opt};
+        }
+        elsif(m/^ (?<opt> [^=]{1,}) = [siof]{1} $/msx) {
+            push @opts, (split qr{\|}, $+{opt});
+        }
+        else {
+            push @opts, $_;
+        }
+    }
+    print join "\n", (map { q{--} . $_ } @opts);
+    print "\n";
+    exit 0;
+}
+
 =head1 SYNOPSIS
 
 mech-dump [options] [file|url]

share/bash-completion/completions/mech-dump

@@ -1,34 +1,12 @@
-#!/usr/bin/env bash
-
-__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() {
+_comp_cmd_mech-dump()
+{
     local cur
-    if declare -F _init_completion >/dev/null 2>&1; then
-        _init_completion
-    else
-        __mech_dump_init_completion
-    fi
-
-    keys=( )
+    _init_completion
     cur=${COMP_WORDS[COMP_CWORD]}
 
-    keys+=( "$(__mech_dump_command_line_options)" )
     # shellcheck disable=SC2207
-    COMPREPLY=( $( compgen -W "${keys[*]}" -- "$cur" ) )
-    return 0
-}
+    COMPREPLY=( $( compgen -W "$(mech-dump --completions)" -- "$cur" ) )
+} &&
+    complete -F _comp_cmd_mech-dump mech-dump
 
-complete -F _mech_dump mech-dump
+# ex: filetype=sh