supply-keystroke.p6

use v6;
use Term::termios;

my $keystrokes = Supplier.new;

start {
    $*IN = open('/dev/tty');
    ENTER my $saved-termios = Term::termios.new(fd => 0).getattr;
    LEAVE $saved-termios.setattr(:DRAIN);
    CATCH { default { say .Str } }
    my $IN = $*IN;

    Term::termios.new(fd => 0).getattr.makeraw.setattr(:DRAIN);

    my $max = 0;
    loop {
        $keystrokes.emit($IN.getc);
        last if $max++ > 10;
    }
};

react {
    whenever $keystrokes -> $k {
        put $k;
    }
}