| line |
true |
false |
branch |
|
24
|
0 |
14 |
if defined $_[0] and $_[0] eq $_ or defined $IO::Pager::PAGER and $IO::Pager::PAGER eq $_ |
|
31
|
4 |
10 |
if ($IO::Pager::PAGER) |
|
35
|
3 |
1 |
if defined $pager |
|
39
|
11 |
3 |
unless (defined $io_pager) |
|
46
|
0 |
14 |
if (not defined $io_pager and $which) |
|
66
|
2 |
13 |
if ($which and not 'File::Spec'->file_name_is_absolute($pager)) { } |
|
72
|
14 |
1 |
if (defined $loc and -e $loc) |
|
85
|
0 |
8 |
if ($IO::Pager::PAGER =~ /more/ and $oldPAGER ne 'more' or $IO::Pager::PAGER eq 'IO::Pager::less') |
|
89
|
0 |
0 |
if $@ or not defined $IO::Pager::PAGER |
|
97
|
0 |
0 |
if scalar @_ == 3 |
|
98
|
0 |
0 |
if scalar @_ == 2 |
|
107
|
0 |
4 |
if (ref $_[-1] eq 'HASH') { } |
|
|
2 |
2 |
elsif (defined $_[1]) { } |
|
113
|
0 |
2 |
if $_[1] =~ /^:/ |
|
114
|
2 |
0 |
if exists $_[1] |
|
120
|
0 |
4 |
unless eval "require $args{'subclass'}" |
|
123
|
0 |
2 |
if (defined $args{'mode'}) |
|
133
|
2 |
2 |
unless defined $_[1] |
|
139
|
2 |
2 |
if (defined(my $FHn = fileno $_[1])) |
|
140
|
2 |
0 |
if ($FHn == fileno STDOUT) |
|
141
|
2 |
0 |
unless -t $_[1] |
|
143
|
0 |
0 |
if ($FHn == fileno STDERR) |
|
144
|
0 |
0 |
unless -t $_[1] |
|
159
|
1 |
1 |
unless ($IO::Pager::PAGER) |
|
168
|
0 |
1 |
if ($child) { } |
|
173
|
0 |
0 |
if $oLayers[$i] =~ /unix|stdio/ and not defined $oLayers[1] |
|
176
|
0 |
0 |
if defined $oLayers[$i + 1] |
|
195
|
0 |
0 |
if ($layer =~ /^:LOG\((>{0,2})(.*)\)$/) { } |
|
196
|
0 |
0 |
unless CORE::open $self->{'LOG'}, $1 || '>', $2 || "$$.log" |
|
207
|
0 |
0 |
unless (defined $SIGPIPE) |
|
212
|
0 |
0 |
unless $ENV{'IP_EOF'} |
|
225
|
0 |
0 |
if exists $self->{'LOG'} |
|
226
|
0 |
0 |
unless print {$self->{'real_fh'};} @args |