[Moscow.pm] Ограничить время выполнения произвольной функции

[Dmitry Karasik]

вот я нашел интересный хак, вроде работает:

use strict;
use Coro;
$SIG{ALRM} = sub { warn "alarm\n"; cede };
sub foo { eval "sleep 5;" }
alarm(1);
async(\&foo);
cede;
print "over\n";
alarm(0);

-- 
Sincerely,
	Dmitry Karasik