&capture_stdin, &capture_stdin_on

sergot · Apr 20, 2012 · 585e903 · 585e903
1 parent 667269f
commit 585e903
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/README b/README
@@ -1,4 +1 @@
 Perl 6 implementation of IO capturing module.
-
-TODO
-- $*IN capturing
diff --git a/examples/e3.p6 b/examples/e3.p6
@@ -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;