view release on metacpan or  search on metacpan

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

$SPEC{update} = {
    v => 1.1,
    summary => 'Update a software to the latest version',
    args => {
        %args_common,
        %App::swcat::arg0_softwares_or_patterns,
        %argopt_download,
    },
};
sub update {
    require Archive::Any;
    require File::Util::Test;
    require File::Path;
    require Filename::Archive;
    require Filename::Executable;
    require IPC::System::Options;

    my %args = @_;
    my $state = _init(\%args);

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

}

$SPEC{update_all} = {
    v => 1.1,
    summary => 'Update all installed software',
    args => {
        %args_common,
        %argopt_download,
    },
};
sub update_all {
    my %args = @_;
    my $state = _init(\%args);

    my $res = list_installed(%args);
    return $res unless $res->[0] == 200;

    update(%args, softwares_or_patterns=>$res->[2]);
}

1;