Make sure we can do .Str/gist/perl on type objects

rakudo · Jun 17, 2014 · 5007abc · 5007abc
1 parent 354c5c5
commit 5007abc
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/src/core/CompUnitRepo/Locally.pm b/src/core/CompUnitRepo/Locally.pm
@@ -18,9 +18,15 @@ role CompUnitRepo::Locally {
         self
     }
 
-    method Str { $!path.Str }
-    method gist { "{self.short-id}:{$!path.Str}" }
-    method perl { "CompUnitRepo.new('{self.short-id}:{$!path.Str}')" }
+    method Str  { self.DEFINITE ?? $!path.Str !! Nil }
+    method gist { self.DEFINITE
+      ?? "{self.short-id}:{$!path.Str}"
+      !! self.^name;
+    }
+    method perl { self.DEFINITE
+      ?? "CompUnitRepo.new('{self.short-id}:{$!path.Str}')"
+      !! self.^name;
+    }
 
     # stubs
     method install($source, $from?) { ... }