App::bif::Pager - pipe output to a system (text) pager


0.1.5_8 (yyyy-mm-dd)


use App::bif::Pager;

my $pager = App::bif::Pager->new;
print "This text goes to a pager\n";

undef $pager;
print "This text goes to STDOUT\n";


App::bif::Pager opens a connection to a system pager and makes it the default filehandle so that by default any print statements are sent there.

When the pager object goes out of scope the previous default filehandle is selected again.


The new() constuctor takes the following arguments.

auto => 1
By default the pager is opened when the object is created. Set auto to a false value to inhibit this behaviour.
encoding => ':utf8'
The Perl IO layer encoding to set after the pager has been opened. This defaults to ':utf8'. Set it to 'undef' to get binary mode.
pager => undef
The pager executable to run. If this is not given then the PAGER environment variable will be used, and if that is empty then the following programs will be searched for using File::Which: pager, less, most, w3m, lv, pg, more.


The underlying filehandle of the pager.
The process ID of the pager program (only set on UNIX systems)
The original filehandle that was selected before the pager was started.


Explicitly close the pager. This is useful if you want to keep the object around to start and stop the pager multiple times. Can be called safely when no pager is running.
Open the pager if it is not running. Can be called safely when the pager is already running.

See Also

IO::Pager - does something similar by mucking directly with STDOUT in a way that breaks fork/exec, and I couldn't for the life of me decipher the code style enough to fix it.


Mark Lawrence <>

Copyright And License

Copyright 2014-2017 Mark Lawrence <>

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version.