[ViewVC] Annotation of: cvs/Coro/eg/attributes

#!/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;
};


Revision:	1.4
Committed:	Fri Jul 14 23:09:51 2017 UTC (6 years, 10 months ago) by root
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.3:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/usr/bin/perl
2
3	root	1.2	use Coro;
4	root	1.1
5			$p = 2;
6
7			sub p1 : Coro {
8			for (0..9) {
9			print "p1: $_\n";
10	root	1.3	cede;
11	root	1.1	}
12			$p--;
13			}
14
15			sub p2 : Coro {
16			for (10..23) {
17			print "p2: $_\n";
18	root	1.3	cede;
19	root	1.1	}
20			$p--;
21			}
22
23			eval {
24	root	1.3	cede while $p;
25	root	1.1	};
26
27
28