line |
true |
false |
branch |
58
|
0 |
0 |
if ($last eq $cmd and not $FIRST_NOT_COMMAND) { } |
61
|
0 |
0 |
if $cmd eq '' |
66
|
0 |
0 |
if ($FIRST_NOT_COMMAND) { } |
75
|
0 |
0 |
if ($path) { } |
77
|
0 |
0 |
if substr($path, -1, 1) eq ' ' and -e substr($path, 0, length($path) - 1) |
82
|
0 |
0 |
$^O eq 'MSWin32' ? : |
87
|
0 |
0 |
if ($path =~ /$dirmatch_reg/) { } |
90
|
0 |
0 |
unless -d $1 . $DIR_SEPARATOR |
92
|
0 |
0 |
unless (opendir DIR, "$1$DIR_SEPARATOR") |
97
|
0 |
0 |
unless closedir DIR |
98
|
0 |
0 |
if ($2) { } |
100
|
0 |
0 |
if (scalar @match == 1) { } |
|
0 |
0 |
elsif (scalar @match == 0) { } |
115
|
0 |
0 |
if ($name and $name =~ / /o) { } |
|
0 |
0 |
elsif ($dir and $dir =~ / /o) { } |
123
|
0 |
0 |
if (-d $file) { } |
143
|
0 |
0 |
if ($length == $min_length) |
151
|
0 |
0 |
if (substr($_, $length, 1) ne $char) |
159
|
0 |
0 |
if ($2 eq $common) { } |
168
|
0 |
0 |
if ($name and $name =~ / /o) { } |
|
0 |
0 |
elsif ($dir and $dir =~ / /o) { } |
187
|
0 |
0 |
unless (opendir DIR, '.') |
192
|
0 |
0 |
unless closedir DIR |
194
|
0 |
0 |
if (scalar @match == 1) { } |
|
0 |
0 |
elsif (scalar @match == 0) { } |
200
|
0 |
0 |
if ($name and $name =~ / /o) { } |
205
|
0 |
0 |
if (-d $file) { } |
224
|
0 |
0 |
if ($length == $min_length) |
231
|
0 |
0 |
if (substr($_, $length, 1) ne $char) |
239
|
0 |
0 |
if ($path eq $common) { } |
246
|
0 |
0 |
if ($name and $name =~ / /o) { } |
261
|
0 |
0 |
unless (opendir DIR, '.') |
266
|
0 |
0 |
unless closedir DIR |
278
|
0 |
0 |
if ($term->ReadLine eq 'Term::ReadLine::Gnu') { } |
|
0 |
0 |
elsif ($term->ReadLine eq 'Term::ReadLine::Perl') { } |