File Coverage

blib/lib/IO/Pager/Page.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 22 90.9


line stmt bran cond sub pod time code
1             package IO::Pager::Page;
2 2     2   145606 use strict;
  2         9  
  2         49  
3 2     2   8 use warnings;
  2         3  
  2         85  
4              
5             our $VERSION = 1.04; #Untouched since 1.02
6              
7              
8             # The meat
9             BEGIN {
10             # Do nothing in Perl compile mode
11 2 50   2   21 return if $^C;
12             # Find a pager
13 2     2   366 use IO::Pager;
  2         3  
  2         60  
14             # Pipe stdout to it
15 2         8 new IO::Pager *STDOUT, 'IO::Pager::Unbuffered';
16             }
17              
18             # Gravy
19             sub import {
20 2     2   17 my ($self, %opt) = @_;
21 2 50       38 $SIG{PIPE} = 'IGNORE' if $opt{hush};
22             }
23              
24             local $_= "Badee badee badee that's all folks!";
25              
26             __END__