Introduce CompUnitRepo.short-id

rakudo · Jun 16, 2014 · fc9dcee · fc9dcee
1 parent 4dd2cc4
commit fc9dcee
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/src/core/CompUnitRepo/Local/File.pm b/src/core/CompUnitRepo/Local/File.pm
@@ -16,4 +16,6 @@ class CompUnitRepo::Local::File does CompUnitRepo::Locally {
         }
         @candi
     }
+
+    method short-id() { 'file' }
 }
diff --git a/src/core/CompUnitRepo/Local/Installation.pm b/src/core/CompUnitRepo/Local/Installation.pm
@@ -184,4 +184,6 @@ sub MAIN(:$name, :$auth, :$ver, *@pos, *%named) {
         }
         @candi
     }
+
+    method short-id() { 'inst' }
 }
diff --git a/src/core/CompUnitRepo/Locally.pm b/src/core/CompUnitRepo/Locally.pm
@@ -19,11 +19,12 @@ role CompUnitRepo::Locally {
     }
 
     method Str { $!path.Str }
-    method gist { self.^name ~ '(' ~ $!path.Str ~ ')' }
-    method perl { self.^name ~ ".new('" ~ $!path.Str ~ "')" }
+    method gist { "{self.short-id}:{$!path.Str}" }
+    method perl { "CompUnitRepo.new('{self.short-id}:{$!path.Str}')" }
 
     # stubs
     method install($source, $from?) { ... }
     method files($file, :$name, :$auth, :$ver) { ... }
     method candidates($name, :$file, :$auth, :$ver) { ... }
+    method short-id() { ... }
 }