moved param checks in lines from delegator to delegatee

Suggested by bacek++.
rakudo · Mar 21, 2009 · 79bc4f3 · 79bc4f3
1 parent d448f91
commit 79bc4f3
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 7 deletions.
diff --git a/src/setting/Any-str.pm b/src/setting/Any-str.pm
@@ -118,13 +118,8 @@ multi sub lines(Str $filename,
                 :$nl = "\n",
                 :$chomp = True) {
 
-    fail 'Binary mode not supported yet'    if $bin;
-    fail 'Encodings not supported yet'      if $enc ne 'Unicode';
-    fail 'Fancy newlines not supported yet' if $nl ne "\n";
-    fail 'Lack of chomp not supported yet'  if !$chomp;
-
     my $filehandle = open($filename, :r);
-    return lines($filehandle);
+    return lines($filehandle, :$bin, :$enc, :$nl, :$chomp);
 }
 
 # vim: ft=perl6
diff --git a/src/setting/IO.pm b/src/setting/IO.pm
@@ -29,7 +29,17 @@ class IO is also {
 
 }
 
-multi sub lines(IO $filehandle) {
+multi sub lines(IO $filehandle,
+                :$bin = False,
+                :$enc = 'Unicode',
+                :$nl = "\n",
+                :$chomp = True) {
+
+    fail 'Binary mode not supported yet'    if $bin;
+    fail 'Encodings not supported yet'      if $enc ne 'Unicode';
+    fail 'Fancy newlines not supported yet' if $nl ne "\n";
+    fail 'Lack of chomp not supported yet'  if !$chomp;
+
     return $filehandle.lines();
 }