view release on metacpan or  search on metacpan

lib/App/BambooCli.pm  view on Meta::CPAN

                if ( $sub_command eq '--' ) {
                    print join ' ', sort @sub_commands;
                    return;
                }
                elsif ( grep {/^$sub_command./} @sub_commands ) {
                    print join ' ', sort grep {/^$sub_command/} @sub_commands;
                    return;
                }
                elsif ( ! $self->sub_commands->{$sub_command} ) {
                    unshift @{$option->files}, $sub_command;
                    $sub_command = $ENV{VTIDE_DIR} ? 'edit' : 'start';
                }
                eval {
                    $self->load_subcommand( $sub_command, $option )->auto_complete($auto);
                    1;
                } or do {
                    print join ' ', grep {/$sub_command/xms} sort @sub_commands;
                }
            },
            auto_complete_shortener => sub {
                my ($getopt, @args) = @_;
                my $sub_command = shift @args || '';

                if ( grep {/^$sub_command./} @sub_commands ) {
                    $getopt->cmd($sub_command);
                }
                elsif ( ! $self->sub_commands->{$sub_command} ) {
                    $getopt->cmd( $ENV{VTIDE_DIR} ? 'edit' : 'start' );
                    unshift @args, $sub_command;
                }
                else {
                    $getopt->cmd($sub_command) if ! $getopt->cmd;
                }

                return @args;
            },
            sub_command   => $self->sub_commands,
            help_package  => __PACKAGE__,

lib/App/BambooCli.pm  view on Meta::CPAN

            'config|c=s%',
            'test|T!',
            'verbose|v+',
        ],
    );

    $self->config( App::BambooCli::Config->new(%{ $options->config }) );

    #if ( ! $self->sub_commands->{ $opt->cmd } ) {
    #    unshift @ARGV, $opt->cmd;
    #    $opt->cmd( $ENV{VTIDE_DIR} ? 'edit' : 'start' );
    #    $opt->files(\@ARGV);
    #}

    my $subcommand = $self->load_subcommand( $opt->cmd, $opt );
    #if ( ! $subcommand ) {
    #    $subcommand = $self->load_subcommand( $ENV{VTIDE_DIR} ? 'edit' : 'start', $opt );
    #    my (undef, $dir) = $subcommand->session_dir($opt->cmd);
    #    if ( !$dir ) {
    #        my $error = $@;
    #        warn $@ if $opt->opt->verbose;
    #        warn "Unknown command '$cmd'!\n",
    #            "Valid commands - ", ( join ', ', sort @sub_commands ),
    #            "\n";
    #        require Pod::Usage;
    #        Pod::Usage::pod2usage(
    #            -verbose => 1,