| line |
true |
false |
branch |
|
72
|
2 |
2 |
if defined $tmpdir |
|
93
|
1 |
0 |
unless eval {
do {
local(@INC) = @INC;
pop @INC if $INC[-1] eq '.';
require Win32API::File
}
} |
|
95
|
1 |
0 |
if $INC[-1] eq '.' |
|
103
|
0 |
0 |
if ($ouFsFlags & Win32API::File::FS_CASE_SENSITIVE()) { } |
|
118
|
74 |
78 |
if ($file =~ /^($VOL_RX)/o) |
|
120
|
60 |
1 |
$file =~ m[^${DRIVE_RX}[\\/]]o ? : |
|
|
13 |
61 |
$vol =~ /^$UNC_RX/o ? : |
|
124
|
61 |
17 |
$file =~ m[^[\\/]] ? : |
|
139
|
0 |
11 |
if $_[0] eq '' |
|
144
|
1 |
10 |
if $_[0] =~ /^$DRIVE_RX\z/o |
|
155
|
1 |
68 |
unless @_ |
|
157
|
14 |
54 |
if $_[0] eq '' |
|
162
|
1 |
53 |
if $_[0] =~ /^$DRIVE_RX\z/o |
|
190
|
3 |
189 |
if not defined $_[1] or $_[1] eq '' |
|
217
|
128 |
63 |
if ($nofile) { } |
|
267
|
36 |
8 |
if (not $directories =~ m[[\\/]\Z(?!\n)]) { } |
|
296
|
0 |
59 |
if ($v) = $volume =~ m[^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)]s and $directory =~ m[^[^\\/]]s |
|
305
|
2 |
57 |
if (not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)] and $file =~ m[[^\\/]]) |
|
310
|
2 |
0 |
$1 ? : |
|
329
|
34 |
47 |
if $is_abs == 2 |
|
331
|
33 |
14 |
if ($is_abs) |
|
337
|
5 |
9 |
if (not defined $base or $base eq '') { } |
|
|
0 |
9 |
elsif (not $self->file_name_is_absolute($base)) { } |
|
338
|
3 |
2 |
if defined &Cwd::getdcwd |
|
339
|
4 |
1 |
unless defined $base |
|
388
|
98 |
2 |
$2 ? : |
|
|
22 |
1 |
defined $2 ? : |
|
|
93 |
52 |
$first =~ s[ \A [\\/] ][]x ? : |
|
|
23 |
145 |
$first =~ s[ \A (?:\\\\|//) ([^\\/]+)
(?: [\\/] ([^\\/]+) )?
[\\/]? ][]sx ? : |
|
|
100 |
168 |
$first =~ s[ \A ([A-Za-z]:) ([\\/]?) ][]x ? : |
|
434
|
214 |
54 |
if ($volume =~ /\\\z/) |
|
442
|
7 |
207 |
if $path eq '' and $volume =~ /\A(\\\\.*)\\\z/s |
|
446
|
261 |
0 |
$path ne '' || $volume ? : |