Implement slurp.

rakudo · Aug 3, 2011 · de65682 · de65682
1 parent a207490
commit de65682
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -92,6 +92,10 @@ class IO {
         self.print: nqp::shift($args).gist while $args;
         self.print: "\n";
     }
+
+    method slurp() {
+        nqp::p6box_s($!PIO.readall());
+    }
 
     method d() {
         self.e && nqp::p6bool(pir::stat__Isi(nqp::unbox_s($!path), pir::const::STAT_ISDIR))
@@ -163,6 +167,14 @@ multi sub close($fh) {
     $fh.close()
 }
 
+proto sub slurp(|$) { * }
+multi sub slurp($filename) {
+    my $handle = open($filename, :r);
+    my $contents = $handle.slurp();
+    $handle.close();
+    $contents
+}
+
 $PROCESS::IN  = open('-');
 $PROCESS::OUT = open('-', :w);
 $PROCESS::ERR = IO.new;