Permalink
Browse files

&capture_stdin, &capture_stdin_on

  • Loading branch information...
1 parent 667269f commit 585e90390057ea75b1258ab0a4447a1bef5fed43 @sergot committed Apr 20, 2012
Showing with 9 additions and 3 deletions.
  1. +0 −3 README
  2. +9 −0 examples/e3.p6
View
3 README
@@ -1,4 +1 @@
Perl 6 implementation of IO capturing module.
-
-TODO
-- $*IN capturing
View
@@ -0,0 +1,9 @@
+use IO::Capture::Simple;
+
+my $in = capture_stdin { $*IN.get(); prompt "input> " } ;
+
+capture_stdin_on($in);
+prompt "input2 = ";
+capture_stdin_off;
+
+say $in;

0 comments on commit 585e903

Please sign in to comment.