Include module version when drawing the graph

This is a temporary hack to make graphs better.

Author: AlexDaniel

bin/blin.p6

@@ -366,10 +366,10 @@ for $to-visualize.keys -> $module {
         when ZefFailure             { ‘crimson’     }
         when UnhandledException     { ‘hotpink’     }
     }
-    $dot ~= “    "{$module.name}" [color=$color];\n”;
+    $dot ~= “    "{$module.handle}" [color=$color];\n”;
     for $module.depends.keys {
         next unless $_ ∈ $to-visualize;
-        $dot ~= “    "{$module.name}" -> "{.name}";\n”;
+        $dot ~= “    "{$module.handle}" -> "{.handle}";\n”;
     }
     $dot ~= “\n”;
 }

lib/Blin/Module.pm6

@@ -10,9 +10,13 @@ has Str     @.errors;
 has Bool    $.visited;
 has Promise $.done = Promise.new;
 
-method install-path {
+method handle {
     # TODO surely we can do better to ensure it won't clash
-    ‘installed/’ ~ $.name ~ ‘_’ ~ $.version
+    $.name ~ ‘_’ ~ $.version
+}
+
+method install-path {
+    ‘installed/’ ~ self.handle
 }
 
 method deps($leaf = False) {