Implement get and close subs.

rakudo · Aug 3, 2011 · 3b56d34 · 3b56d34
1 parent 9fdde9e
commit 3b56d34
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -153,6 +153,16 @@ multi sub lines($fh = $*ARGFILES, $limit = $Inf) {
     $fh.lines($limit) 
 }
 
+proto sub get(|$) { * }
+multi sub get($fh = $*ARGFILES) {
+    $fh.get()
+}
+
+proto sub close(|$) { * }
+multi sub close($fh) {
+    $fh.close()
+}
+
 $PROCESS::IN  = open('-');
 $PROCESS::OUT = open('-', :w);
 $PROCESS::ERR = IO.new;