diff --git a/src/classes/IO.pir b/src/classes/IO.pir index a39d1b67edd..80e69fbc24d 100644 --- a/src/classes/IO.pir +++ b/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 diff --git a/src/setting/Any-str.pm b/src/setting/Any-str.pm index be0082b13ac..66348a148d4 100644 --- a/src/setting/Any-str.pm +++ b/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 diff --git a/src/setting/IO.pm b/src/setting/IO.pm index 3f1ffb70122..038a63e1410 100644 --- a/src/setting/IO.pm +++ b/src/setting/IO.pm @@ -29,4 +29,8 @@ class IO is also { } +multi sub lines(IO $filehandle) { + return $filehandle.lines(); +} + # vim: ft=perl6