view release on metacpan or  search on metacpan

lib/Getopt/Alt.pm  view on Meta::CPAN

                    {
                        helper => $self->helper,
                        %{$options},         ## no critic
                        options =>
                          $self->options,    # inherit this objects options
                        default =>
                          { %{ $self->opt }, %{ $options->{default} || {} } },
                    },
                    $opt_args
                );
                local @ARGV = ();
                if ( $self->opt->auto_complete ) {
                    push @args, '--auto-complete', $self->opt->auto_complete,
                      '--';
                }
                $sub_obj->process(@args);
                $self->opt( $sub_obj->opt );
                $self->files( $sub_obj->files );
            }
        }
        elsif (

t/auto_complete.t  view on Meta::CPAN

                },
            },
            [
                'out|o=s',
                'other|t=s',
            ]
        )
    };
    my $err = $@;
    ok !$err, 'No errors' or diag explain $err;
    local @ARGV = qw/cm/;
    my ($stdout, $stderr) = capture { $opt->complete([]) };
    is $stdout, 'cmd', 'Suggests the correct command';

    @ARGV = qw//;
    ($stdout, $stderr) = capture { $opt->complete([]) };
    is $stdout, '2nd cmd', 'Suggests the correct command';
}

sub arguments {
    diag 'arguments';