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

[Dmitry Karasik]

> можешь набросать тест который она не пройдет?

вместо 
    my $res = eval { dtimeout(1, sub { eval { sleep 3 }; return $_[0] }, 321) };
в t_timeout_eval
    my $res = eval { dtimeout(1, sub { eval { sleep 3 }; sleep 33; return $_[0] }, 321) };
подойдет?

-- 
Sincerely,
	Dmitry Karasik