dont return the "ref" for Int, Str, ...

rakudo-p5 · Sep 2, 2013 · 4faaaa6 · 4faaaa6
1 parent 68600eb
commit 4faaaa6
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/lib/Perl5/Terms.pm b/lib/Perl5/Terms.pm
@@ -139,8 +139,14 @@ multi sub chomp(*@s is rw) is export {
     $nr_chomped
 }
 
-sub ref($o) is export {
-    $o.^name.uc
+sub ref(\o) is export {
+    my $name = o ~~ Cool ?? '' !! o.^name.uc;
+    if $name eq 'SUB' {
+        'CODE'
+    }
+    else {
+        $name
+    }
 }
 
 sub exists( \a ) is export { a:exists ?? 1 !! '' }