ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
Coro
/
eg
/
cont
Revision:
1.2
Committed:
Thu Jul 19 02:45:09 2001 UTC
(22 years, 10 months ago) by
root
Branch:
MAIN
Changes since
1.1
:
+5 -4 lines
Log Message:
*** empty log message ***
File Contents
#
User
Rev
Content
1
root
1.1
#!/usr/bin/perl
2
3
root
1.2
use Coro;
4
root
1.1
use Coro::Cont;
5
6
root
1.2
sub mul23 : Cont {
7
result shift*2;
8
result shift*3;
9
}
10
root
1.1
11
my %hash = (1,1,2,2,3,3);
12
13
%hash = map &$cont, %hash;
14
15
print join(",", %hash), "\n";
16