| line |
true |
false |
branch |
|
45
|
0 |
0 |
unless defined $path |
|
55
|
0 |
0 |
if ($double_slashes_special and $path =~ s[^(//[^/]+)/?\z][]s || $path =~ s[^(//[^/]+)/][/]s) |
|
66
|
0 |
0 |
unless $path eq './' |
|
69
|
0 |
0 |
unless $path eq '/' |
|
101
|
0 |
0 |
unless @_ |
|
103
|
0 |
0 |
unless substr($dir, -1) eq '/' |
|
161
|
0 |
0 |
if grep(($ENV{$_} ne $tmpenv{$_}), @_) |
|
168
|
0 |
0 |
if ($taint) { } |
|
|
0 |
0 |
elsif ($] < 5.007) { } |
|
173
|
0 |
0 |
unless not defined $_ |
|
178
|
0 |
0 |
unless defined $_ and -d $_ and -w _ |
|
182
|
0 |
0 |
unless defined $tmpdir |
|
184
|
0 |
0 |
unless ($self->file_name_is_absolute($tmpdir)) |
|
190
|
0 |
0 |
$] < 5.007 ? : |
|
|
0 |
0 |
$taint ? : |
|
198
|
0 |
0 |
if defined $cached |
|
255
|
0 |
0 |
unless exists $ENV{'PATH'} |
|
257
|
0 |
0 |
if $_ eq '' |
|
298
|
0 |
0 |
if ($nofile) { } |
|
352
|
0 |
0 |
if ($directory ne '' and $file ne '' and substr($directory, -1) ne '/' and substr($file, 0, 1) ne '/') { } |
|
398
|
0 |
0 |
unless defined $base and length $base |
|
405
|
0 |
0 |
if (grep $self->file_name_is_absolute($_), $path, $base) { } |
|
412
|
0 |
0 |
unless $path_volume eq $base_volume |
|
420
|
0 |
0 |
if (not length $base_directories and $self->file_name_is_absolute($base)) |
|
434
|
0 |
0 |
if ($base_directories eq $self->rootdir) |
|
435
|
0 |
0 |
if $path_directories eq $self->rootdir |
|
445
|
0 |
0 |
unless @pathchunks or @basechunks |
|
453
|
0 |
0 |
if ($dir ne $self->updir) { } |
|
|
0 |
0 |
elsif (@common) { } |
|
458
|
0 |
0 |
if (@reverse_base and $reverse_base[0] eq $self->updir) { } |
|
505
|
0 |
0 |
unless ($self->file_name_is_absolute($path)) |
|
507
|
0 |
0 |
if (not defined $base or $base eq '') { } |
|
|
0 |
0 |
elsif (not $self->file_name_is_absolute($base)) { } |
|
550
|
0 |
0 |
if @dirs and $dirs[-1] eq '' |
|
554
|
0 |
0 |
if ($dir eq $updir and @collapsed and length $collapsed[-1] and $collapsed[-1] ne $updir and $collapsed[-1] ne $curdir) { } |