Search FreeBSD ports tree

PortUtils-Search.pm6

use v6;

unit class PortUtils::Search;

has IO::Path $.ports-dir;
has IO::Path @.cats;

method new() {
  my $ports-dir = '/usr/ports/'.IO;
  my IO::Path @cats;
  my @check = $ports-dir;
  while @check {
    my $check = shift @check;
    @check.append: @cats.append: $check.dir.grep: *.d
  }
  return self.bless( :$ports-dir, :@cats );
}

proto method query ( \query ) {*}
multi method query ( Str \query ) {
  @.cats.grep(*.basename.contains(query))».relative($.ports-dir)
}
multi method query ( Callable \query ) { # also handles Regex
  @.cats.grep(query)».relative($.ports-dir)
}