"borrow" rakudos method Match.gist

sorear · Feb 7, 2013 · 5f89e5f · 5f89e5f
1 parent af64300
commit 5f89e5f
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -2806,6 +2806,15 @@ my class Match is Cool does Associative does Positional {
 
         "#<match from({ self.from }) to({ self.to }) text({ self }) pos({ @pos.perl }) named({ %(self).perl })>"
     }
+    multi method gist ($d = 0) {
+        return "#<failed match>" unless self;
+        my $s = ' ' x ($d + 1);
+        my $r = ("=> " if $d) ~ "\x[FF62]{self}\x[FF63]\n";
+        for @.caps {
+            $r ~= $s ~ (.key // '?') ~ ' ' ~ .value.gist($d + 1)
+        }
+        $r;
+    }
     method CURSOR() { Q:CgOp { (cursor_unmatch (cast cursor (@ {self}))) } }
     method cursor() { Q:CgOp { (cursor_unmatch (cast cursor (@ {self}))) } }
     method reduced() { Q:CgOp { (box Str (cursor_reduced (cast cursor (@ {self})))) } }