Add helper sub NOT_ALL_DEFINED_TYPE

rakudo · Dec 21, 2014 · 70cf4f5 · 70cf4f5
1 parent 4fa65d4
commit 70cf4f5
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -300,4 +300,12 @@ sub EXHAUST(|) {
     X::ControlFlow::Return.new.throw();
 }
 
+# True if given array does not just contain defined objects of given type
+sub NOT_ALL_DEFINED_TYPE(\values,\type) {
+    for values {
+        return True unless nqp::defined($_) && nqp::istype($_,type);
+    }
+    False;
+}
+
 # vim: ft=perl6 expandtab sw=4