—

              
#!perl
# FRAGMENT id=shcompgen-hint command=compwithargs
use 5.010001;
use strict;
use warnings;
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2022-01-16'; # DATE
our $DIST = 'App-CompleteUtils'; # DIST
our $VERSION = '0.180'; # VERSION
if ($ENV{COMP_LINE} || $ENV{COMMAND_LINE}) {
    my $shell;
    if ($ENV{COMP_SHELL}) {
        ($shell = $ENV{COMP_SHELL}) =~ s!.+/!!;
    } elsif ($ENV{COMMAND_LINE}) {
        $shell = 'tcsh';
    } else {
        $shell = 'bash';
    }
    my ($words, $cword);
    if ($ENV{COMP_LINE}) {
        require Complete::Bash;
        ($words,$cword) = @{ Complete::Bash::parse_cmdline(undef, undef, {truncate_current_word=>1}) };
        ($words,$cword) = @{ Complete::Bash::join_wordbreak_words($words, $cword) };
    } elsif ($ENV{COMMAND_LINE}) {
        require Complete::Tcsh;
        $shell //= 'tcsh';
        ($words, $cword) = @{ Complete::Tcsh::parse_cmdline() };
    }
    shift @$words; $cword--; # strip program name
    require Complete::Util;
    my $word = splice @$words, $cword, 1;
    my $compres = Complete::Util::complete_array_elem(
        word  => $word,
        array => $words,
    );
    if ($shell eq 'bash') {
        require Complete::Bash;
        print Complete::Bash::format_completion(
            $compres, {word=>$words->[$cword]});
    } elsif ($shell eq 'fish') {
        require Complete::Fish;
        print Complete::Bash::format_completion(
            $compres, {word=>$words->[$cword]});
    } elsif ($shell eq 'tcsh') {
        require Complete::Tcsh;
        print Complete::Tcsh::format_completion($compres);
    } elsif ($shell eq 'zsh') {
        require Complete::Zsh;
        print Complete::Zsh::format_completion($compres);
    } else {
        die "Unknown shell '$shell'";
    }
    exit 0;
} else {
    require Getopt::Long;
    Getopt::Long::Configure('no_ignore_case', 'bundling', 'permute');
    Getopt::Long::GetOptions(
        'help|h|?' => sub {
            print <<'_';
compwithargs - Show completion from words specified in command-line arguments
Usage:
  compwith word1 word2 word3 <tab>
Options:
_
            exit 0;
        },
        'version|v' => sub {
            print "compwithargs version ", ($main::VERSION // 'dev'), "\n";
            exit 0;
        },
    );
}
# ABSTRACT: Show completion from words specified in command-line arguments
# PODNAME: compwithargs
__END__
HideShow 85 lines of Pod
=pod
=encoding UTF-8
=head1 NAME
compwithargs - Show completion from words specified in command-line arguments
=head1 VERSION
This document describes version 0.180 of compwithargs (from Perl distribution App-CompleteUtils), released on 2022-01-16.
=head1 SYNOPSIS
 % compwithargs apple banana apricot <tab>
 apple
 apricot
 banana
 % compwithargs apple banana apricot a<tab>
 apple
 apricot
=head1 DESCRIPTION
This utility simply uses words from command-line arguments (except the last one)
for completion.
=head1 OPTIONS
=head2 --help, -h, -?
=head2 --version, -v
=head1 HOMEPAGE
Please visit the project's homepage at L<https://metacpan.org/release/App-CompleteUtils>.
=head1 SOURCE
Source repository is at L<https://github.com/perlancar/perl-App-CompleteUtils>.
=head1 SEE ALSO
L<complete-array-elem> from L<App::CompleteCLIs> (which in turn is a CLI for
C<complete_array_elem()> function in L<Complete::Util>).
=head1 AUTHOR
perlancar <perlancar@cpan.org>
=head1 CONTRIBUTING
To contribute, you can send patches by email/via RT, or send pull requests on
GitHub.
Most of the time, you don't need to build the distribution yourself. You can
simply modify the code, then test via:
 % prove -l
If you want to build the distribution (e.g. to try to install it locally on your
system), you can install L<Dist::Zilla>,
L<Dist::Zilla::PluginBundle::Author::PERLANCAR>, and sometimes one or two other
Dist::Zilla plugin and/or Pod::Weaver::Plugin. Any additional steps required
beyond that are considered a bug and can be reported to me.
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2022, 2020, 2018, 2017, 2016, 2015, 2014 by perlancar <perlancar@cpan.org>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=App-CompleteUtils>
When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.
=cut