Changes to make local build of other modules work

Committing so that a fetch from Github will get this version, so that
Panda::Builder can build itself.

lib/Panda/Builder.pm

@@ -66,8 +66,9 @@ method build($where) {
         }
         my @files;
         if 'lib'.IO.d {
-            @files = find(dir => 'lib', type => 'file').grep({
-                $_.basename.substr(0, 1) ne '.'
+            @files = find(dir => 'lib', type => 'file').map({
+                my $io = .IO;
+                $io if $io.basename.substr(0, 1) ne '.';
             });
         }
         my @dirs = @files.map(*.directory).uniq;

lib/Panda/Common.pm

@@ -7,7 +7,7 @@ sub dirname ($mod as Str) is export {
 
 sub indir ($where, Callable $what) is export {
     mkpath $where;
-    temp $*CWD = $where.path.absolute;
+    temp $*CWD = $where.IO.absolute;
     $what()
 }
 

lib/Panda/Fetcher.pm

@@ -46,7 +46,8 @@ sub local-fetch($from, $to) {
     my $cleanup       = $from.IO.cleanup;
     my $cleanup_chars = $cleanup.chars;
     for eager find(dir => $from).list {
-        my $d = IO::Spec.catpath($_.volume, $_.directory, '');
+        my $io = .IO;
+        my $d  = IO::Spec.catpath($io.volume, $io.directory, '');
         # We need to cleanup the path, because the returned elems are too.
         if ($d.Str.index(~$cleanup) // -1) == 0 {
             $d = $d.substr($cleanup_chars)
@@ -55,8 +56,8 @@ sub local-fetch($from, $to) {
         next if $d ~~ /^ '/'? '.git'/; # skip VCS files
         my $where = "$to/$d";
         mkpath $where;
-        next if $_.IO ~~ :d;
-        $_.copy("$where/{$_.basename}");
+        next if $io ~~ :d;
+        $io.copy("$where/{$io.basename}");
     }
     return True;
 }