ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Event/Event.pm
(Generate patch)

Comparing Coro/Event/Event.pm (file contents):
Revision 1.10 by root, Mon Feb 18 21:25:02 2002 UTC vs.
Revision 1.37 by root, Mon Nov 20 19:56:04 2006 UTC

… …
6 6
7 use Coro; 7 use Coro;
8 use Coro::Event; 8 use Coro::Event;
9 9
10 sub keyboard : Coro { 10 sub keyboard : Coro {
11 my $w = Coro::Event->io(fd => *STDIN, poll => 'r'); 11 my $w = Coro::Event->io(fd => \*STDIN, poll => 'r');
12 while() { 12 while() {
13 print "cmd> "; 13 print "cmd> ";
14 my $ev = $w->next; my $cmd = <STDIN>; 14 my $ev = $w->next; my $cmd = <STDIN>;
15 unloop unless $cmd ne ""; 15 unloop unless $cmd ne "";
16 print "data> "; 16 print "data> ";
… …
30(I<flavour>) (see L<Event>). The only difference between these and the 30(I<flavour>) (see L<Event>). The only difference between these and the
31watcher constructors from Event is that you do not specify a callback 31watcher constructors from Event is that you do not specify a callback
32function - it will be managed by this module. 32function - it will be managed by this module.
33 33
34Your application should just create all necessary coroutines and then call 34Your application should just create all necessary coroutines and then call
35Coro::Event->main. 35Coro::Event::loop.
36
37Please note that even programs or modules (such as
38L<Coro::Handle|Coro::Handle>) that use "traditional"
39event-based/continuation style will run more efficient with this module
40then when using only Event.
36 41
37=over 4 42=over 4
38 43
39=cut 44=cut
40 45
41package Coro::Event; 46package Coro::Event;
42 47
43no warnings qw(uninitialized); 48BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") }
44 49
45use Carp; 50use Carp;
51no warnings;
46 52
47use Coro; 53use Coro;
48use Event qw(loop unloop); # we are re-exporting this, cooool! 54use Event qw(loop unloop); # we are re-exporting this, cooool!
49 55
56use XSLoader;
57
50use base 'Exporter'; 58use base Exporter::;
51 59
52@EXPORT = qw(loop unloop sweep reschedule); 60our @EXPORT = qw(loop unloop sweep reschedule);
53 61
54BEGIN { 62BEGIN {
55 $VERSION = 0.45; 63 our $VERSION = 1.9;
56 64
57 local $^W = 0; # avoid redefine warning for Coro::ready 65 local $^W = 0; # avoid redefine warning for Coro::ready;
58 require XSLoader;
59 XSLoader::load Coro::Event, $VERSION; 66 XSLoader::load __PACKAGE__, $VERSION;
60} 67}
61 68
62=item $w = Coro::Event->flavour(args...) 69=item $w = Coro::Event->flavour(args...)
63 70
64Create and return a watcher of the given type. 71Create and return a watcher of the given type.
… …
107 }; 114 };
108 *{ $flavour } = $coronew; 115 *{ $flavour } = $coronew;
109 *{"do_$flavour"} = sub { 116 *{"do_$flavour"} = sub {
110 unshift @_, Coro::Event::; 117 unshift @_, Coro::Event::;
111 my $e = (&$coronew)->next; 118 my $e = (&$coronew)->next;
112 $e->cancel; # $e = $e->w->cancel ($e == $e->w!) 119 $e->cancel; # $e === $e->w
113 $e; 120 $e;
114 }; 121 };
115} 122}
116 123
117# double calls to avoid stack-cloning ;() 124# double calls to avoid stack-cloning ;()
… …
189 }; 196 };
190} 197}
191 198
1921; 1991;
193 200
201=back
202
194=head1 AUTHOR 203=head1 AUTHOR
195 204
196 Marc Lehmann <pcg@goof.com> 205 Marc Lehmann <schmorp@schmorp.de>
197 http://www.goof.com/pcg/marc/ 206 http://home.schmorp.de/
198 207
199=cut 208=cut
200 209

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines