Bugfix, and make more real-world proof

bin/panda

@@ -66,4 +66,8 @@ multi MAIN ('search', $pattern) {
     search-projects($panda, $pattern);
 }
 
+END {
+    rm_rf '.work';
+}
+
 # vim: ft=perl6

lib/Panda.pm

@@ -65,6 +65,9 @@ class Panda {
                    $notests, $isdep as Bool) {
         my $dir = tmpdir();
         self.announce('fetching', $bone);
+        unless $bone.metainfo<source-url> {
+            die X::Panda.new($bone.name, 'fetch', 'source-url meta info missing')
+        }
         $.fetcher.fetch($bone.metainfo<source-url>, $dir);
         self.announce('building', $bone);
         $.builder.build($dir);

lib/Panda/Common.pm

@@ -32,7 +32,7 @@ sub withp6lib(&what) is export {
 }
 
 class X::Panda is Exception {
-    has $.module;
+    has $.module is rw;
     has $.stage;
     has $.description;