Implement QAST::Node.unique.

Raku · Jul 9, 2012 · 171f251 · 171f251
1 parent 2b6d5b7
commit 171f251
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/QAST/Node.nqp b/src/QAST/Node.nqp
@@ -31,4 +31,12 @@ class QAST::Node is NQPCapture {
     method push($value)    { nqp::push(self.list, $value) }
     method shift()         { nqp::shift(self.list) }
     method unshift($value) { nqp::unshift(self.list, $value) }
+
+    my %uniques;
+    method unique($prefix) {
+        my $id := nqp::existskey(%uniques, $prefix) ??
+            (%uniques{$prefix} := %uniques{$prefix} + 1) !!
+            (%uniques{$prefix} := 1);
+        $prefix ~ '_' ~ $id
+    }
 }