File Coverage

blib/lib/IO/Page.pm

Criterion	Covered	Total	%
statement	10	21	47.6
branch	2	16	12.5
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	41	39.0

package IO::Page;

use strict;
use vars qw( $VERSION );

$VERSION = '0.02';

local( *PAGER, *STDOLD, ) ;

BEGIN {
  my( $try, $pager, ) ;

  if ( -t STDOUT ) {
    # only bother to check if we're going to page
    # other fallbacks could be `which less`, `which more`, etc
    TRY:
    foreach $try ( $ENV{PAGER},
                   '/usr/local/bin/less',
                   '/usr/bin/less',
                   '/usr/bin/more',
                 ) {
      eval { chomp $try } ;
      if ( -x $try ) {
        $pager = $try ;
	last TRY ;
      }
    }

    die "Couldn't find a pager!\n" unless -x $pager ;

    open PAGER, "| $pager"
      or die "Can't pipe to $pager: $!" ;
    open STDOLD, ">&STDOUT"
      or die "Can't save STDOUT: $!" ;
    open STDOUT, ">&PAGER"
      or die "Can't dup STDOUT to PAGER: $!" ;
  }
}

END {
  if ( fileno STDOLD ) {
    open STDOUT, ">&STDOLD"
      or die "Can't restore STDOUT: $!" ;
  }
  close PAGER ;
}

# module loaded OK!
1 ;

__END__