Simple lazy implementation of .lines.

rakudo · Feb 7, 2010 · a8ab00b · a8ab00b
1 parent 25b48ad
commit a8ab00b
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -25,12 +25,10 @@ class IO {
     }
 
     multi method lines($limit = *) {
-        my @result;
-        #my $l = $limit ~~ Whatever ?? Inf !! $limit;
-        #while !$.eof && $l-- > 0 {
-        #    push @result, $.get;
-        #}
-        @result;
+        my $l = $limit ~~ Whatever ?? Inf !! $limit;
+        gather while !$.eof && $l-- > 0 {
+           take $.get;
+        }
     }
 
     multi method print(*@items) {