work around nqp::can(Junction, $anything) always returning True

rakudo · Nov 19, 2012 · 6cc0d6c · 6cc0d6c
1 parent 3ee7808
commit 6cc0d6c
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/Junction.pm b/src/core/Junction.pm
@@ -51,6 +51,10 @@ my class Junction is Mu {
             -> $obj, **@cpos, *%cnamed { $obj(|@cpos, |%cnamed) },
             self, |$c);
     }
+    method sink(Junction:D:) {
+        .?sink for $!storage.list;
+        Nil;
+    }
 }
 
 sub any(*@values) { Junction.new(@values, :type<any>); }