src/remove.pl

#!/usr/bin/env perl
use v5.16;
use strict;
use warnings FATAL => 'all';
use FindBin;
use lib "$FindBin::Bin";
use mplib::config qw($CFG);
use mplib::util qw(fail confirm);
use mplib::db qw(read_db);
use mplib::resolve qw(init remove_pkg expand_meta);
 
my $flags = mplib::config::parse_flags(\@ARGV);
mplib::config::load($flags);
fail("remove needs at least one package name") unless @ARGV;
init();
 
my $db = read_db();
my @names = map { expand_meta($_, $db) } @ARGV;
confirm("remove: " . join(' ', @names) . " -- continue?");
remove_pkg($_, $db) for @names;