Advertisement
Guest User

Untitled

a guest
Aug 10th, 2019
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.38 KB | None | 0 0
  1. my sub modules-in-dist1( $directory ) {
  2.   gather {
  3.     try {
  4.       for $directory.child('dist').IO.dir.grep(*.IO.f) -> $idx-file {
  5.         take modules-in-idx-file( $idx-file );
  6.       }
  7.     }
  8.   }.flat
  9. }
  10.  
  11. my sub modules-in-dist2( $directory ) {
  12.   try {
  13.     $directory.child('dist').IO.dir.grep(*.IO.f).map(-> $idx-file {
  14.       |modules-in-idx-file( $idx-file );
  15.     });
  16.   }
  17. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement