killme.pl6

# signal(SIGINT).tap: {
#     note "Took { now - INIT now } seconds. $*THREAD";
# }

my $interrupt = signal(SIGINT);

$interrupt.tap: -> $v {
  note "[got interrupt $v]";
}

my $interrupt_text = $interrupt.map: -> $v {
  # note "Took { now - INIT now } seconds. $*THREAD";
  note "Got SIGINT";
  # "SIGINT\n";
  $v
}

my $input = $*IN.Supply(size => 1);
# my $input = $*IN.Supply;

my $merged_input = $input.merge($interrupt_text);
# my $merged_input = $interrupt_text.merge($input);

# loop {
  react {
    whenever $interrupt -> $txt {
    # whenever $merged_input -> $txt {
    # whenever $interrupt_text.lines -> $txt {
      say "interrupt: [$txt]";
      # say "interrupt: $interrupt";
      # exit if $txt ~~ /SIGINT/;
    }
    whenever $input -> $txt {
    # whenever $merged_input -> $txt {
    # whenever $interrupt_text.lines -> $txt {
      say "input: [$txt]";
      # say "interrupt: $interrupt";
      # exit if $txt ~~ /SIGINT/;
    }
  }
# }