Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use v6;
- loop {
- my $s = $*IN.Supply;
- if $*IN.eof {
- say 'eat eof';
- $*IN.read(1)
- }
- react {
- whenever $s -> $buf {
- print $buf;
- LAST {
- say 'got eof';
- }
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement