[setting/Any-str.pm] implemented lines($filename)

src/classes/IO.pir

@@ -19,7 +19,7 @@ This file implements the IO file handle class.
     p6meta.'new_class'('IOIterator', 'parent'=>'Perl6Object', 'attr'=>'$!IO')
 
     $P0 = get_hll_namespace ['IO']
-    '!EXPORT'('lines,readline', 'from'=>$P0)
+    '!EXPORT'('readline', 'from'=>$P0)
 .end
 
 =head2 Methods

src/setting/Any-str.pm

@@ -111,4 +111,10 @@ sub unpack($template, $target) {
     }
 }
 
+# TODO: '$filename as Str' once support for that is in place
+multi sub lines($filename) {
+    my $filehandle = open($filename, :r);
+    return lines($filehandle);
+}
+
 # vim: ft=perl6

src/setting/IO.pm

@@ -29,4 +29,8 @@ class IO is also {
 
 }
 
+multi sub lines(IO $filehandle) {
+    return $filehandle.lines();
+}
+
 # vim: ft=perl6