Implement Seq.Bool.

rakudo · Feb 28, 2010 · d42198a · d42198a
1 parent 7ef1ac2
commit d42198a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/Seq.pm b/src/core/Seq.pm
@@ -5,6 +5,10 @@ augment class Seq {
         pir::join(' ', self!fill);
     }
 
+    multi method Bool() {
+        self!fill(1) ?? Bool::True !! Bool::False;
+    }
+
     multi method sort(&by = &infix:<cmp>) {
         # Parrot already provides a sort method that works on
         # ResizablePMCArray, so we aim to make use of that here.