| line |
true |
false |
branch |
|
42
|
0 |
1 |
if (eval {
do {
local $SIG{'__DIE__'};
require VMS::Feature
}
}) |
|
51
|
0 |
125 |
if ($use_feature) { } |
|
71
|
0 |
85 |
unless defined $path |
|
75
|
1 |
84 |
if ($path =~ m[/]) |
|
79
|
0 |
1 |
if $unix_rpt |
|
80
|
0 |
1 |
$pathify ? : |
|
114
|
84 |
0 |
unless $path eq '[]' |
|
115
|
0 |
84 |
$unix_rpt ? : |
|
133
|
33 |
0 |
if defined $_ |
|
136
|
24 |
3 |
if (@dirs) { } |
|
137
|
19 |
5 |
@dirs == 1 ? : |
|
141
|
0 |
19 |
if ($unix_rpt) |
|
142
|
0 |
0 |
unless $spath =~ m[/] |
|
143
|
0 |
0 |
unless $sdir =~ m[/] |
|
153
|
0 |
0 |
if ($spath =~ /^[\[<][^.\-]/s) |
|
159
|
1 |
2 |
if (not defined $dir && length $dir) { } |
|
162
|
0 |
2 |
$unix_rpt ? : |
|
179
|
21 |
0 |
if defined $_ |
|
184
|
11 |
2 |
if (@files) { } |
|
185
|
1 |
10 |
@files == 1 ? : |
|
194
|
0 |
1 |
if ($spath =~ m<^(?]+\)\Z(?!\n)>s and basename($file) eq $file) { } |
|
198
|
0 |
0 |
defined $rslt && length $rslt ? : |
|
199
|
0 |
0 |
unless $unix_rpt |
|
204
|
2 |
0 |
defined $file && length $file ? : |
|
206
|
0 |
2 |
$unix_rpt ? : |
|
208
|
0 |
0 |
unless $unix_rpt |
|
223
|
0 |
0 |
if $self->_unix_rpt |
|
235
|
0 |
0 |
if $self->_unix_rpt |
|
248
|
0 |
0 |
if ($self->_unix_rpt) |
|
255
|
0 |
0 |
if ($dev1 != $dev2 or $ino1 != $ino2) |
|
281
|
0 |
0 |
if defined $tmpdir |
|
282
|
0 |
0 |
if ($self->_unix_rpt) { } |
|
299
|
0 |
0 |
if $self->_unix_rpt |
|
359
|
0 |
0 |
if ($nofile) { } |
|
362
|
0 |
0 |
if ($vmsify_path =~ /(.*)\](.+)/) |
|
366
|
0 |
0 |
defined $2 ? : |
|
384
|
1 |
14 |
if not defined $dirspec or '' eq $dirspec |
|
400
|
3 |
11 |
unless $dirspec =~ /(?
|
|
419
|
0 |
0 |
unless length $dev |
|
420
|
0 |
0 |
length $dir_file ? : |
|
422
|
0 |
0 |
if ($dev =~ m[^(?
|
|
423
|
0 |
0 |
unless $dev eq '' or $dev =~ /:\Z(?!\n)/ |
|
424
|
0 |
0 |
if (length $dev or length $dir) |
|
425
|
0 |
0 |
unless $dir =~ m((?
|
|
428
|
0 |
0 |
if length $dev and $dir eq '[]' || $dir eq '<>' |
|
440
|
0 |
16 |
if grep m[/], @_ and not grep(/(?
|
|
444
|
0 |
16 |
unless defined $base and length $base |
|
448
|
0 |
16 |
unless $base =~ /(?
|
|
464
|
0 |
0 |
unless lc $path_volume eq lc $base_volume |
|
469
|
0 |
0 |
unless $pathchunks[0] eq '000000' |
|
472
|
0 |
0 |
unless $basechunks[0] eq '000000' |
|
484
|
0 |
0 |
if (@basechunks > 0 or $basechunks != $pathchunks) { } |
|
504
|
0 |
38 |
unless defined $path |
|
505
|
0 |
38 |
if ($path =~ m[/]) |
|
506
|
0 |
0 |
-d $path || $path =~ m[/\z] ? : |
|
510
|
0 |
38 |
if defined $base and $base =~ m[/] |
|
513
|
5 |
33 |
unless ($self->file_name_is_absolute($path)) |
|
515
|
0 |
5 |
if (not defined $base or $base eq '') { } |
|
|
0 |
5 |
elsif (not $self->file_name_is_absolute($base)) { } |
|
532
|
0 |
0 |
if $path_directories eq '[]' or $path_directories eq '<>' |
|
535
|
0 |
0 |
if $base_directories =~ /[^.\]>]\Z(?!\n)/ and $path_directories =~ /^[^.\[<]/s |