Add missing .spurt methods

rakudo · Nov 30, 2014 · b0605fc · b0605fc
1 parent 0f4ec52
commit b0605fc
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/src/core/IO/Handle.pm b/src/core/IO/Handle.pm
@@ -27,6 +27,12 @@ class IO::Handle does IO does PIO {
         DEPRECATED('$handle.slurp-rest', |<2014.10 2015.10>);
         self.slurp-rest(|c);
     }
+    method spurt(IO::Handle:D: \what) {
+        DEPRECATED(".IO.spurt or spurt(...)", |<2014.10 2015.10>);
+        what ~~ Blob
+          ?? self.write(what)
+          !! self.print(what);
+    }
 
 #    method seek(|c) {
 #        fail "You cannot seek on an {self.^name}";

diff --git a/src/core/IOU.pm b/src/core/IOU.pm
@@ -22,6 +22,7 @@ my class IOU {
 
     method open(IOU:D: |c)  { open($!abspath,|c) }
     method mkdir(IOU:D: |c) { mkdir($!abspath,|c) }
+    method spurt(IOU:D: \what, |c) { spurt($!abspath,what,|c) }
 
     multi method Str(IOU:D:)  { $!this }
     multi method gist(IOU:D:) { qq|"$!this".IO| }