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" |