src/list.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::db qw(read_db);
use mplib::resolve qw(init all_ports);
 
my $flags = mplib::config::parse_flags(\@ARGV);
mplib::config::load($flags);
init();
 
if(@ARGV && $ARGV[0] eq '--installed')
{
	my $db = read_db();
	for my $name (sort keys %$db)
	{
		print "$name\t$db->{$name}{ver}\t$db->{$name}{license}";
		print "\t$db->{$name}{requested}" if $db->{$name}{requested};
		print "\n";
	}
	exit 0;
}
for my $p (all_ports())
{
	print "$p->{cat}/$p->{name}\n";
}