view release on metacpan or  search on metacpan

lib/App/cpm/CLI.pm  view on Meta::CPAN

sub _warn_deprecated_top_level_option ($self, $option) {
    warn "$option is deprecated; use --top-level-phase and/or --top-level-relationship instead.\n";
}

sub _progress_default ($self) {
    !WIN32 && !$self->maybe_ci && !$self->{verbose} && -t STDERR && terminal_width > 60 ? "tty" : "plain";
}

sub parse_options ($self, @argv) {
    local @ARGV = @argv;
    my ($mirror, @resolver, @feature, $top_level_phase, $top_level_relationship);
    my $with_relationship_option = sub ($relationship) {
        (
            "with-$relationship",
            sub (@) {
                $self->_warn_deprecated_top_level_option("--with-$relationship");
                $self->_set_top_level_relationship($self->{top_level_relationship}->@*, $relationship);
            },
            "without-$relationship",
            sub (@) {