implement limit to IO.lines

rakudo · Apr 20, 2009 · ae5e785 · ae5e785
1 parent 2703c20
commit ae5e785
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/setting/IO.pm b/src/setting/IO.pm
@@ -15,9 +15,10 @@ class IO is also {
         return $!ins;
     }
 
-    multi method lines() is export {
-        my @result = ();
-        while !$.eof {
+    multi method lines($limit = *) is export {
+        my @result;
+        my $l = $limit ~~ Whatever ?? Inf !! $limit;
+        while !$.eof && $l-- > 0 {
             push @result, $!PIO.readline().chomp()
         }
         return @result;