Add clear_annotations method.

Raku · Jan 19, 2015 · 9f1320c · 9f1320c
1 parent 94ed47c
commit 9f1320c
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/QAST/Node.nqp b/src/QAST/Node.nqp
@@ -73,6 +73,10 @@ class QAST::Node {
         nqp::ishash(%!annotations) && nqp::existskey(%!annotations, $key)
     }
 
+    method clear_annotations() {
+        %!annotations := nqp::null();
+    }
+
     my %uniques;
     method unique($prefix) {
         my $id := nqp::existskey(%uniques, $prefix) ??