# NAME
IO::Prompt::Timeout - Simple prompt interface with timeout.
# SYNOPSIS
use IO::Prompt::Timeout qw(:all);
my $answer = prompt('Yes or No? (y/n)', %option);
my $is_timeout = has_timed_out();
# Specifying timeout seconds
my $answer = prompt('Yes or No? (y/n) Answer in 10 seconds.', timeout => 10);
# Specifying default answer
my $answer = prompt('Yes or No? (y/n)', default => 'n');
# DESCRIPTION
__IO::Prompt::Timeout__ provides _prompt_ subroutine most of which comes from
[ExtUtils::MakeMaker](
https://metacpan.org/pod/ExtUtils::MakeMaker).
It also has timeout feature just like [Prompt::Timeout](
https://metacpan.org/pod/Prompt::Timeout).
The default timeout seconds is 60. When prompt timed out, the default answer
can be taken when it's set by option.
Unlike Prompt::Timeout, this module uses simple $SIG{ALRM}.
The function of clearing timer by a single key click is not supported which is
implemented in Prompt::Timeout.
# ENVIRONMENT VARIABLES
- __$ENV{PERL\_IOPT\_USE\_DEFAULT}__
If set true, _prompt_ will always return the default answer without waiting for
user input.
# KNOWN ISSUES
- $SIG{ALRM} is not supported on Windows OS. So this module won't work.
# SEE ALSO
[ExtUtils::MakeMaker](
https://metacpan.org/pod/ExtUtils::MakeMaker),
[IO::Prompt::Tiny](
https://metacpan.org/pod/IO::Prompt::Tiny),
[Prompt::Timeout](
https://metacpan.org/pod/Prompt::Timeout)
# LICENSE
Copyright (C) YASUTAKE Kiyoshi.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
# AUTHOR
YASUTAKE Kiyoshi <
[email protected]>
