編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

Coro

use Coro;
use LWP::UserAgent;

async {
    print "Hello, world\n";
};

my $ua = LWP::UserAgent->new;
my $res = $ua->get('http://www.goo.ne.jp');
print $res->title, "\n";

cede;

goo
called

use Coro;
use LWP::UserAgent;

async {
    print "Hello, world\n";
};

cede;

my $ua = LWP::UserAgent->new;
my $res = $ua->get('http://www.goo.ne.jp');
print $res->title, "\n";

called
goo

参考

http://search.cpan.org/perldoc?Coro


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

Last-modified: 2012-03-06 (火) 19:13:04 (2145d)