[ViewVC] Contents of: cvs/Coro/eg/event

#!/usr/bin/perl

use Coro;
use Coro::Event;

sub keyboard : Coro {
 my $w = Coro::Event->io(fd => *STDIN, poll => 'r');
 while() {
    print "cmd> ";
    my $ev = $w->next; my $cmd = <STDIN>;
    print "data> ";
    my $ev = $w->next; my $data = <STDIN>;
 }
}

Revision:	1.1
Committed:	Sun Jul 15 02:36:54 2001 UTC (22 years, 11 months ago) by root
Branch:	MAIN
Log Message:	* empty log message *
#	Content
1	#!/usr/bin/perl
2
3	use Coro;
4	use Coro::Event;
5
6	sub keyboard : Coro {
7	my $w = Coro::Event->io(fd => *STDIN, poll => 'r');
8	while() {
9	print "cmd> ";
10	my $ev = $w->next; my $cmd = <STDIN>;
11	print "data> ";
12	my $ev = $w->next; my $data = <STDIN>;
13	}
14	}
15