| blib/lib/IO/Pager.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 48 | 33.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 24 | 14 | 0 | 0 | defined $_[0] and $_[0] eq $_ |
| 9 | 5 | 0 | defined $IO::Pager::PAGER and $IO::Pager::PAGER eq $_ | |
| 46 | 14 | 0 | 0 | not defined $io_pager and $which |
| 66 | 0 | 13 | 2 | $which and not 'File::Spec'->file_name_is_absolute($pager) |
| 72 | 1 | 0 | 14 | defined $loc and -e $loc |
| 85 | 8 | 0 | 0 | $IO::Pager::PAGER =~ /more/ and $oldPAGER ne 'more' |
| 173 | 0 | 0 | 0 | $oLayers[$i] =~ /unix|stdio/ and not defined $oLayers[1] |
| line | l | !l | condition |
|---|---|---|---|
| 52 | 14 | 0 | $io_pager ||= 'more' |
| 82 | 0 | 8 | $IO::Pager::PAGER || '' |
| 118 | 2 | 2 | $args{'subclass'} ||= 'IO::Pager::Unbuffered' |
| 196 | 0 | 0 | $1 || '>' |
| 199 | 0 | 0 | $layer || ':raw' |
| 243 | 0 | 0 | $offset || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 24 | 0 | 0 | 14 | defined $_[0] and $_[0] eq $_ or defined $IO::Pager::PAGER and $IO::Pager::PAGER eq $_ |
| 85 | 0 | 0 | 8 | $IO::Pager::PAGER =~ /more/ and $oldPAGER ne 'more' or $IO::Pager::PAGER eq 'IO::Pager::less' |
| 89 | 0 | 0 | 0 | $@ or not defined $IO::Pager::PAGER |
| 136 | 4 | 0 | 0 | $_[1] ||= *{select;} |
| 196 | 0 | 0 | 0 | $2 || "$$.log" |