Events: Difference between revisions

=={{header|Perl 6}}==

{{trans|Go}}

<lang>note now, " program start";

my $event = Channel.new;

my $todo = start {

note now, " task start";

$event.receive;

note now, " event reset by task";

}

note now, " program sleeping";

sleep 1;

note now, " program signaling event";

$event.send(0);

await $todo;</lang>

{{out}}

<pre>Instant:1403880984.089974 program start

Instant:1403880984.095400 program sleeping

Instant:1403880984.095491 task start

Instant:1403880985.099381 program signaling event

Instant:1403880985.109395 event reset by task</pre>