| line |
true |
false |
branch |
|
60
|
0 |
0 |
unless defined $path |
|
70
|
0 |
0 |
if ($double_slashes_special and $path =~ s[^(//[^/]+)/?\z][]s || $path =~ s[^(//[^/]+)/][/]s) |
|
81
|
0 |
0 |
unless $path eq './' |
|
84
|
0 |
0 |
unless $path eq '/' |
|
116
|
0 |
0 |
unless @_ |
|
118
|
0 |
0 |
unless substr($dir, -1) eq '/' |
|
176
|
0 |
0 |
if grep(($ENV{$_} ne $tmpenv{$_}), @_) |
|
183
|
0 |
0 |
if ($taint) { } |
|
|
0 |
0 |
elsif ($] < 5.007) { } |
|
192
|
0 |
0 |
unless defined $_ and -d $_ and -w _ |
|
196
|
0 |
0 |
unless defined $tmpdir |
|
198
|
0 |
0 |
unless ($self->file_name_is_absolute($tmpdir)) |
|
204
|
0 |
0 |
$] < 5.007 ? : |
|
|
0 |
0 |
$taint ? : |
|
212
|
0 |
0 |
if defined $cached |
|
269
|
0 |
0 |
unless exists $ENV{'PATH'} |
|
271
|
0 |
0 |
if $_ eq '' |
|
312
|
0 |
0 |
if ($nofile) { } |
|
366
|
0 |
0 |
if ($directory ne '' and $file ne '' and substr($directory, -1) ne '/' and substr($file, 0, 1) ne '/') { } |
|
412
|
0 |
0 |
unless defined $base and length $base |
|
419
|
0 |
0 |
if (grep $self->file_name_is_absolute($_), $path, $base) { } |
|
426
|
0 |
0 |
unless $path_volume eq $base_volume |
|
434
|
0 |
0 |
if (not length $base_directories and $self->file_name_is_absolute($base)) |
|
448
|
0 |
0 |
if ($base_directories eq $self->rootdir) |
|
449
|
0 |
0 |
if $path_directories eq $self->rootdir |
|
459
|
0 |
0 |
unless @pathchunks or @basechunks |
|
467
|
0 |
0 |
if ($dir ne $self->updir) { } |
|
|
0 |
0 |
elsif (@common) { } |
|
472
|
0 |
0 |
if (@reverse_base and $reverse_base[0] eq $self->updir) { } |
|
519
|
0 |
0 |
unless ($self->file_name_is_absolute($path)) |
|
521
|
0 |
0 |
if (not defined $base or $base eq '') { } |
|
|
0 |
0 |
elsif (not $self->file_name_is_absolute($base)) { } |
|
573
|
0 |
0 |
if @dirs and $dirs[-1] eq '' |
|
577
|
0 |
0 |
if ($dir eq $updir and @collapsed and length $collapsed[-1] and $collapsed[-1] ne $updir and $collapsed[-1] ne $curdir) { } |