… | |
… | |
31 | |
31 | |
32 | use Coro::State; |
32 | use Coro::State; |
33 | |
33 | |
34 | use base Exporter; |
34 | use base Exporter; |
35 | |
35 | |
36 | $VERSION = 0.05; |
36 | $VERSION = 0.07; |
37 | |
37 | |
38 | @EXPORT = qw(async yield schedule terminate); |
38 | @EXPORT = qw(async yield schedule terminate); |
39 | @EXPORT_OK = qw($current); |
39 | @EXPORT_OK = qw($current); |
40 | |
40 | |
41 | { |
41 | { |
… | |
… | |
99 | print STDERR "FATAL: deadlock detected\n"; |
99 | print STDERR "FATAL: deadlock detected\n"; |
100 | exit(51); |
100 | exit(51); |
101 | }; |
101 | }; |
102 | |
102 | |
103 | # we really need priorities... |
103 | # we really need priorities... |
104 | ## my @ready; #d# |
|
|
105 | our @ready = (); # the ready queue. hehe, rather broken ;) |
104 | my @ready; # the ready queue. hehe, rather broken ;) |
106 | |
105 | |
107 | # static methods. not really. |
106 | # static methods. not really. |
108 | |
107 | |
109 | =head2 STATIC METHODS |
108 | =head2 STATIC METHODS |
110 | |
109 | |