Dependency of nagios-plugins-nwc-health-8.0-1.1.src.rpm
Name: perl-IO-Interactive
Project: openSUSE_13.2
Repository: oss
Title: Utilities for interactive I/O
Description:
This module provides three utility subroutines that make it easier to
develop interactive applications...
* 'is_interactive()'
This subroutine returns true if '*ARGV' and the currently selected
filehandle (usually '*STDOUT') are connected to the terminal. The test is
considerably more sophisticated than:
-t *ARGV && -t *STDOUT
as it takes into account the magic behaviour of '*ARGV'.
You can also pass 'is_interactive' a writable filehandle, in which case
it requires that filehandle be connected to a terminal (instead of the
currently selected). The usual suspect here is '*STDERR':
if ( is_interactive(*STDERR) ) {
carp $warning;
}
* 'interactive()'
This subroutine returns '*STDOUT' if 'is_interactive' is true. If
'is_interactive()' is false, 'interactive' returns a filehandle that does
not print.
This makes it easy to create applications that print out only when the
application is interactive:
print {interactive} "Please enter a value: ";
my $value = <>;
You can also pass 'interactive' a writable filehandle, in which case it
writes to that filehandle if it is connected to a terminal (instead of
writinbg to '*STDOUT'). Once again, the usual suspect is '*STDERR':
print {interactive(*STDERR)} $warning;
* 'busy {...}'
This subroutine takes a block as its single argument and executes that
block. Whilst the block is executed, '*ARGV' is temporarily replaced by a
closed filehandle. That is, no input from '*ARGV' is possible in a 'busy'
block. Furthermore, any attempts to send input into the 'busy' block
through '*ARGV' is intercepted and a warning message is printed to
'*STDERR'. The 'busy' call returns a filehandle that contains the
intercepted input.
A 'busy' block is therefore useful to prevent attempts at input when the
program is busy at some non-interactive task.
Version: 0.0.6
Release: 13.1.3
Architecture: noarch
Size: 14.1 KB
Build Time: 2014-10-06 15:21:10 +0200 (over 9 years ago)
Provides
Symbol | Required by |
---|---|
perl(IO::Interactive) | |
perl-IO-Interactive = 0.0.6... |
Requires
Symbol | Provided by |
---|---|
perl(:MODULE_COMPAT_5.20.1) | perl |
perl(version) | perl-base perl-version |