view release on metacpan or  search on metacpan

lib/Perl6/Build/CLI.pm  view on Meta::CPAN

sub run {
    my ($self, @argv) = @_;

    my @configure_option;
    my ($index) = grep { $argv[$_] eq '--' } 0..$#argv;
    if (defined $index) {
        (undef, @configure_option) = splice @argv, $index, @argv - $index;
    }

    local @ARGV = @argv;
    Getopt::Long::Configure(qw(default no_auto_abbrev no_ignore_case));
    Getopt::Long::GetOptions
        "l|list"      => \my $list,
        "L|list-all"  => \my $list_all,
        "h|help"      => \my $show_help,
        "version"     => \my $show_version,
        "jvm"         => \my $jvm,
        "w|workdir=s" => \$self->{workdir},
        'ensure-latest-version=s' => \my $ensure_latest_version,
    or exit 1;