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

Comparing Coro/Coro/Cont.pm (file contents):
Revision 1.1 by root, Sat Jul 14 22:14:21 2001 UTC vs.
Revision 1.2 by root, Sun Jul 15 02:35:52 2001 UTC

… …
39our $curr = new Coro::Specific; 39our $curr = new Coro::Specific;
40our @result; 40our @result;
41 41
42sub cont(&) { 42sub cont(&) {
43 my $code = $_[0]; 43 my $code = $_[0];
44 my $coro = new Coro::State sub { 44 my $coro = new Coro::State sub { &$code while 1 };
45 &$code while 1;
46 };
47 my $prev = new Coro::State; 45 my $prev = new Coro::State;
48 sub { 46 sub {
49 push @$$curr, [$coro, $prev]; 47 push @$$curr, [$coro, $prev];
50 $prev->transfer($coro); 48 $prev->transfer($coro);
51 wantarray ? @{pop @result} : ${pop @result}[0]; 49 wantarray ? @{pop @result} : ${pop @result}[0];

Diff Legend

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