Dump extra info about QAST::SpecialArg when dumping the AST.

Raku · Oct 23, 2015 · af86b80 · af86b80
1 parent ba972b6
commit af86b80
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/QAST/SpecialArg.nqp b/src/QAST/SpecialArg.nqp
@@ -13,4 +13,17 @@ role QAST::SpecialArg {
         $!flat := $value unless $value =:= NO_VALUE;
         $!flat
     }
+
+    method dump_extra_node_info() {
+        my $parent := self.HOW.parents(self, :local(1))[0];
+        my $info := $parent.HOW.method_table($parent)<dump_extra_node_info>(self);
+
+        $info := nqp::chars($info) ?? $info ~ " " !! "";
+
+        if $!flat {
+            $info ~ ":flat" ~ ($!named ?? " :named" !! "");
+        } else {
+            $info ~ ($!named ?? ":named<$!named>" !! "");
+        }
+    }
 }