| line |
true |
false |
branch |
|
23
|
0 |
0 |
unless $self->_perldoc_elem('width', @_) or $self->_get_columns_from_manwidth or $self->_get_columns_from_stty |
|
33
|
0 |
0 |
if $perldoc->is_mswin32 or $perldoc->is_dos |
|
35
|
0 |
0 |
if ($pager =~ /less/) { } |
|
|
0 |
0 |
elsif ($pager =~ /more/) { } |
|
48
|
0 |
0 |
if (not defined $ENV{$name}) |
|
62
|
0 |
0 |
if ($output =~ /\bcolumns\s+(\d+)/) { } |
|
|
0 |
0 |
elsif ($output =~ /;\s*(\d+)\s+columns;/) { } |
|
70
|
0 |
0 |
unless defined $ENV{'MANWIDTH'} |
|
72
|
0 |
0 |
unless ($ENV{'MANWIDTH'} =~ /\A\d+\z/) |
|
77
|
0 |
0 |
if ($ENV{'MANWIDTH'} == 0) |
|
82
|
0 |
0 |
if ($ENV{'MANWIDTH'} =~ /\A(\d+)\z/) |
|
105
|
0 |
0 |
$Pod::Text::VERSION ? : |
|
|
0 |
0 |
@options ? : |
|
|
0 |
0 |
if defined &Pod::Perldoc::DEBUG and 0 |