IO::Pager::Page - use IO::Pager to emulate IO::Page, pipe STDOUT to a pager if STDOUT is a TTY


IO-Pager documentation Contained in the IO-Pager distribution.

Index


Code Index:

NAME

Top

IO::Pager::Page - use IO::Pager to emulate IO::Page, pipe STDOUT to a pager if STDOUT is a TTY

SYNOPSIS

Top

Pipes STDOUT to a pager if STDOUT is a TTY

DESCRIPTION

Top

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.

USAGE

Top

  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;

SEE ALSO

Top

IO::Page, IO::Pager, IO::Pager::Unbuffered, IO::Pager::Buffered

AUTHOR

Top

Jerrad Pierce <jpierce@cpan.org>

LICENSE

Top

* Thou shalt not claim ownership of unmodified materials.
* Thou shalt not claim whole ownership of modified materials.
* Thou shalt grant the indemnity of the provider of materials.
* Thou shalt use and dispense freely without other restrictions.

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__