| line |
true |
false |
branch |
|
42
|
0 |
1 |
if (eval {
do {
local $SIG{'__DIE__'};
local(@INC) = @INC;
pop @INC if $INC[-1] eq '.';
require VMS::Feature
}
}) |
|
44
|
1 |
0 |
if $INC[-1] eq '.' |
|
54
|
0 |
131 |
if ($use_feature) { } |
|
74
|
0 |
91 |
unless defined $path |
|
78
|
1 |
90 |
if ($path =~ m[/]) |
|
82
|
0 |
1 |
if $unix_rpt |
|
83
|
0 |
1 |
$pathify ? : |
|
117
|
90 |
0 |
unless $path eq '[]' |
|
118
|
0 |
90 |
$unix_rpt ? : |
|
136
|
33 |
0 |
if defined $_ |
|
139
|
24 |
3 |
if (@dirs) { } |
|
140
|
19 |
5 |
@dirs == 1 ? : |
|
144
|
0 |
19 |
if ($unix_rpt) |
|
145
|
0 |
0 |
unless $spath =~ m[/] |
|
146
|
0 |
0 |
unless $sdir =~ m[/] |
|
156
|
0 |
0 |
if ($spath =~ /^[\[<][^.\-]/s) |
|
162
|
1 |
2 |
if (not defined $dir && length $dir) { } |
|
165
|
0 |
2 |
$unix_rpt ? : |
|
182
|
21 |
0 |
if defined $_ |
|
187
|
11 |
2 |
if (@files) { } |
|
188
|
1 |
10 |
@files == 1 ? : |
|
197
|
0 |
1 |
if ($spath =~ m<^(?]+\)\Z(?!\n)>s and basename($file) eq $file) { } |
|
201
|
0 |
0 |
defined $rslt && length $rslt ? : |
|
202
|
0 |
0 |
unless $unix_rpt |
|
207
|
2 |
0 |
defined $file && length $file ? : |
|
209
|
0 |
2 |
$unix_rpt ? : |
|
211
|
0 |
0 |
unless $unix_rpt |
|
226
|
0 |
0 |
if $self->_unix_rpt |
|
238
|
0 |
0 |
if $self->_unix_rpt |
|
251
|
0 |
0 |
if ($self->_unix_rpt) |
|
258
|
0 |
0 |
if ($dev1 != $dev2 or $ino1 != $ino2) |
|
284
|
0 |
0 |
if defined $tmpdir |
|
285
|
0 |
0 |
if ($self->_unix_rpt) { } |
|
302
|
0 |
0 |
if $self->_unix_rpt |
|
362
|
0 |
0 |
if ($nofile) { } |
|
365
|
0 |
0 |
if ($vmsify_path =~ /(.*)\](.+)/) |
|
369
|
0 |
0 |
defined $2 ? : |
|
387
|
1 |
14 |
if not defined $dirspec or '' eq $dirspec |
|
403
|
3 |
11 |
unless $dirspec =~ /(?
|
|
422
|
0 |
0 |
unless length $dev |
|
423
|
0 |
0 |
length $dir_file ? : |
|
425
|
0 |
0 |
if ($dev =~ m[^(?
|
|
426
|
0 |
0 |
unless $dev eq '' or $dev =~ /:\Z(?!\n)/ |
|
427
|
0 |
0 |
if (length $dev or length $dir) |
|
428
|
0 |
0 |
unless $dir =~ m((?
|
|
431
|
0 |
0 |
if length $dev and $dir eq '[]' || $dir eq '<>' |
|
445
|
0 |
18 |
unless defined $base and length $base |
|
449
|
2 |
16 |
unless $base =~ /(?
|
|
465
|
0 |
0 |
unless lc $path_volume eq lc $base_volume |
|
470
|
0 |
0 |
unless $pathchunks[0] eq '000000' |
|
473
|
0 |
0 |
unless $basechunks[0] eq '000000' |
|
485
|
0 |
0 |
if (@basechunks > 0 or $basechunks != $pathchunks) { } |
|
505
|
0 |
38 |
unless defined $path |
|
506
|
0 |
38 |
if ($path =~ m[/]) |
|
507
|
0 |
0 |
-d $path || $path =~ m[/\z] ? : |
|
511
|
0 |
38 |
if defined $base and $base =~ m[/] |
|
514
|
5 |
33 |
unless ($self->file_name_is_absolute($path)) |
|
516
|
0 |
5 |
if (not defined $base or $base eq '') { } |
|
|
0 |
5 |
elsif (not $self->file_name_is_absolute($base)) { } |
|
533
|
0 |
0 |
if $path_directories eq '[]' or $path_directories eq '<>' |
|
536
|
0 |
0 |
if $base_directories =~ /[^.\]>]\Z(?!\n)/ and $path_directories =~ /^[^.\[<]/s |