p6.p6

class PortUtils::Search {
    constant PORTS = '/usr/ports/';
    has IO::Path @!cats = PORTS.IO.dir.map: |*.dir.grep: *.d;

    method name(Str $query) {
    	my @matches = @!cats.grep: *.basename.contains: $query;
    	say  “There are {+@matches} ports with names matching "$query":”;
    	.relative(PORTS).put for @matches;
    }
}

PortUtils::Search.new.name: 'perl';