#!/usr/bin/perl
use Coro;
$p = 2;
sub p1 : Coro {
for (0..9) {
print "p1: $_\n";
cede;
}
$p--;
}
sub p2 : Coro {
for (10..23) {
print "p2: $_\n";
cede;
}
$p--;
}
eval {
cede while $p;
};
#!/usr/bin/perl
use Coro;
$p = 2;
sub p1 : Coro {
for (0..9) {
print "p1: $_\n";
cede;
}
$p--;
}
sub p2 : Coro {
for (10..23) {
print "p2: $_\n";
cede;
}
$p--;
}
eval {
cede while $p;
};