Fix Parameter.named, add Parameter.slurpy

rakudo · Aug 2, 2011 · 124bec3 · 124bec3
1 parent c26878d
commit 124bec3
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/core/Parameter.pm b/src/core/Parameter.pm
@@ -27,7 +27,7 @@ my class Parameter {
     }
 
     method named() {
-        nqp::p6bool(nqp::isnull($!named_names))
+        !nqp::p6bool(nqp::isnull($!named_names))
     }
 
     method named_names() {
@@ -40,6 +40,14 @@ my class Parameter {
             nqp::isnull($!named_names)
          )
     }
+
+    method slurpy() {
+        nqp::p6bool(
+            $!flags +& ($SIG_ELEM_SLURPY_POS
+                        +| $SIG_ELEM_SLURPY_NAMED
+                        +| $SIG_ELEM_SLURPY_BLOCK)
+        )
+    }
 
     method optional() {
         ?($!flags +& $SIG_ELEM_IS_OPTIONAL)