manymanymanypod

PROCESS::<$SCHEDULER> = ThreadPoolScheduler.new(initial_threads => 0, max_threads => 2);
my $source-dir = '../../doc/doc/';

sub MAIN () {
    put await do start { .&parse-pod-file } for sort find-pod-files $source-dir;
}

sub find-pod-files ($dir) {
    gather for dir($dir) {
        take .Str if .extension ~~ rx:i/pod$/;
        take slip find-pod-files $_ if .d;
    }
}

sub parse-pod-file ($f) {
    put "processing $f";
    my $pod = (EVAL ($f.IO.slurp ~ "\n\$=pod"));
    $pod.perl;
}