Skip to content

Instantly share code, notes, and snippets.

@smls

smls/find-files.p6 Secret

Created August 15, 2016 14:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save smls/1637615d59f87c66e3e724c9723d864b to your computer and use it in GitHub Desktop.
Save smls/1637615d59f87c66e3e724c9723d864b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
find-files.p6
sub find-files ($dir, Mu :$test = none <. ..>) {
gather given $dir.IO {
my @files = .dir;
.take when $test for @files;
.&?BLOCK if .d for @files;
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment