add Seq.is-ready for debugging purposes

it returns False if this Seq has already been iterated
rakudo · Aug 25, 2015 · ab408b1 · ab408b1
1 parent 508d223
commit ab408b1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/Seq.pm b/src/core/Seq.pm
@@ -38,6 +38,8 @@ my class Seq is Cool does Iterable does PositionalBindFailover {
         $seq
     }
 
+    method is-ready(Seq:D:) { $!iter.DEFINITE }
+
     method iterator(Seq:D:) {
         my \iter = $!iter;
         X::Seq::Consumed.new.throw unless iter.DEFINITE;