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.9 by root, Tue Nov 27 02:59:37 2001 UTC vs.
Revision 1.16 by root, Thu May 8 00:55:30 2003 UTC

… …
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 36
37=over 4 37=over 4
38 38
39=cut 39=cut
40 40
… …
50use base 'Exporter'; 50use base 'Exporter';
51 51
52@EXPORT = qw(loop unloop sweep reschedule); 52@EXPORT = qw(loop unloop sweep reschedule);
53 53
54BEGIN { 54BEGIN {
55 $VERSION = 0.45; 55 $VERSION = 0.652;
56 56
57 local $^W = 0; # avoid redefine warning for Coro::ready 57 local $^W = 0; # avoid redefine warning for Coro::ready;
58 require XSLoader; 58 require XSLoader;
59 XSLoader::load Coro::Event, $VERSION; 59 XSLoader::load Coro::Event, $VERSION;
60} 60}
61 61
62=item $w = Coro::Event->flavour(args...) 62=item $w = Coro::Event->flavour(args...)
… …
92 @{"${class}::ISA"} = (Coro::Event::, "Event::$flavour"); 92 @{"${class}::ISA"} = (Coro::Event::, "Event::$flavour");
93 my $coronew = sub { 93 my $coronew = sub {
94 # how does one do method-call-by-name? 94 # how does one do method-call-by-name?
95 # my $w = $class->SUPER::$flavour(@_); 95 # my $w = $class->SUPER::$flavour(@_);
96 96
97 $_[0] eq Coro::Event:: 97 shift eq Coro::Event::
98 or croak "event constructor \"Coro::Event->$flavour\" must be called as a static method"; 98 or croak "event constructor \"Coro::Event->$flavour\" must be called as a static method";
99 99
100 my $q = []; # [$coro, $event]
101 my $w = $new->( 100 my $w = $new->($class,
102 desc => $flavour, 101 desc => $flavour,
103 @_, 102 @_,
104 parked => 1, 103 parked => 1,
105 ); 104 );
106 _install_std_cb($w, $type); 105 _install_std_cb($w, $type);

Diff Legend

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