use Time::Out qw(timeout);
# Time out the following code block after 5 seconds
timeout 5 => sub {
# do something that might take a long time...
} ;
if ($@){
# timeout occured...
}
INSTALLATION
Note: Your system must support alarm(2).
To install this module type the following:
perl Makefile.PL
make
make test
make install
COPYRIGHT AND LICENCE
Copyright (C) 2005-2008 Patrick LeBoutillier
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.