Refactor .gist to more closely match the spec.

rakudo · Jul 7, 2011 · 15ec618 · 15ec618
1 parent 7d4d042
commit 15ec618
Show file tree

Hide file tree

Showing 6 changed files with 5 additions and 3 deletions.
diff --git a/src/core/Iterator.pm b/src/core/Iterator.pm
@@ -6,5 +6,4 @@ my class Iterator {
     method list() { (self,).list }
     method flat() { (self,).flat }
 
-    method gist(Iterator:D:) { self.perl }
 }
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -188,6 +188,7 @@ class List does Positional {
         self[$index];
     }
 
+    multi method gist(List:D:) { self.Str }
     multi method perl(List:D \$self:) {
         self.gimme(*);
         self.Parcel.perl ~ '.list'  

diff --git a/src/core/Mu.pm b/src/core/Mu.pm
@@ -103,7 +103,7 @@ my class Mu {
 
     proto method gist(|$) { * }
     multi method gist(Mu:U:) { self.HOW.name(self) ~ '()' }
-    multi method gist(Mu:D:) { self.Stringy }
+    multi method gist(Mu:D:) { self.perl }
 
     proto method perl(|$) { * }
     multi method perl(Mu:D:) { self.Str }

diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -15,6 +15,8 @@ my class Numeric {
         self.exp * $base.log;
     }
     multi method Bool(Numeric:D:) { self != 0 }
+
+    multi method gist(Numeric:D:) { self.Str }
 }
 
 

diff --git a/src/core/Range.pm b/src/core/Range.pm
@@ -109,7 +109,6 @@ class Range is Iterable does Positional {
 
     method at_pos($pos) { self.flat.at_pos($pos) }
 
-    multi method gist(Range:D:) { self.perl }
     multi method perl(Range:D:) { 
         $.min.perl
           ~ ('^' if $.excludes_min)

diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -123,6 +123,7 @@ my class Str does Stringy {
         "\b" => '\b', "\n" => '\n', "\r" => '\r', "\t" => '\t', '"' => '\"',
         '\\' => '\\\\' );
 
+    multi method gist(Str:D:) { self }
     multi method perl(Str:D:) {
         my $result = '"';
         for ^self.chars -> $i {