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   178151 use strict;
  2         11  
  2         74  
3 2     2   10 use warnings;
  2         4  
  2         117  
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   30 return if $^C;
12             # Find a pager
13 2     2   507 use IO::Pager;
  2         5  
  2         76  
14             # Pipe stdout to it
15 2         9 new IO::Pager *STDOUT, 'IO::Pager::Unbuffered';
16             }
17              
18             # Gravy
19             sub import {
20 2     2   23 my ($self, %opt) = @_;
21 2 50       55 $SIG{PIPE} = 'IGNORE' if $opt{hush};
22             }
23              
24             local $_= "Badee badee badee that's all folks!";
25              
26             __END__