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

[Mons Anderson]

On Friday 29 January 2010 19:45:48 Dmitry E. Oboukhov wrote:
> можешь набросать тест который она не пройдет?

что-то типа...

my $start = time;
my $res = eval { dtimeout(1, sub { eval "sleep 2";sleep 2; 1; }) };
my $run = time - $start;
ok $run < 3;
ok !$res;


-- 
Mons Anderson aka Vladimir Perepelitsa
<mons на cpan.org> / #99779956 / quanth на irc.freenode.net