| IO-Pager documentation | Contained in the IO-Pager distribution. |
IO::Pager::Page - use IO::Pager to emulate IO::Page, pipe STDOUT to a pager if STDOUT is a TTY
Pipes STDOUT to a pager if STDOUT is a TTY
IO::Pager is designed to programmaticly decide whether or not to point the STDOUT file handle into a pipe to program specified in $ENV{PAGER} or one of a standard list of pagers.
BEGIN{
use IO::Pager::Page;
#use I::P::P first, just in case another module sends output to STDOUT
}
print<<HEREDOC;
...
A bunch of text later
HEREDOC
If you wish to forgo the potential for a Broken Pipe foible resulting from the user exiting the pager prematurely load IO::Pager::Page like so:
use IO::Pager::Page hush=>1;
Jerrad Pierce <jpierce@cpan.org>
| IO-Pager documentation | Contained in the IO-Pager distribution. |
package IO::Pager::Page; use vars '$VERSION'; $VERSION = 0.05; #The meat BEGIN{ use IO::Pager; new IO::Pager *STDOUT; } #Gravy sub import{ shift; my %opt = @_; $SIG{PIPE} = sub{ exit 0; } if $opt{hush}; } "Badee badee badee that's all folks!"; __END__