meta.p6

# Just some meta stuff I found interesting ...

sub meta-method-names {
    Metamodel::ClassHOW.^methods>>.name
}

sub core-names {
    CORE::.keys
}

sub loaded-modules {
    $*REPO.repo-chain.map(*.loaded).flat
}

sub watch-home-changes-non-recursively {
    my $sup = "/home/mat".IO.watch;
    $sup.tap(-> $notif { say $notif.path, " ", $notif.event });
    $sup.wait;
}