| line |
true |
false |
branch |
|
72
|
2 |
2 |
if defined $tmpdir |
|
93
|
1 |
0 |
unless eval {
do {
require Win32API::File
}
} |
|
99
|
0 |
0 |
if ($ouFsFlags & Win32API::File::FS_CASE_SENSITIVE()) { } |
|
114
|
74 |
78 |
if ($file =~ /^($VOL_RX)/o) |
|
116
|
60 |
1 |
$file =~ m[^${DRIVE_RX}[\\/]]o ? : |
|
|
13 |
61 |
$vol =~ /^$UNC_RX/o ? : |
|
120
|
61 |
17 |
$file =~ m[^[\\/]] ? : |
|
135
|
0 |
11 |
if $_[0] eq '' |
|
140
|
1 |
10 |
if $_[0] =~ /^$DRIVE_RX\z/o |
|
151
|
1 |
68 |
unless @_ |
|
153
|
14 |
54 |
if $_[0] eq '' |
|
158
|
1 |
53 |
if $_[0] =~ /^$DRIVE_RX\z/o |
|
186
|
3 |
189 |
if not defined $_[1] or $_[1] eq '' |
|
213
|
128 |
63 |
if ($nofile) { } |
|
263
|
36 |
8 |
if (not $directories =~ m[[\\/]\Z(?!\n)]) { } |
|
292
|
0 |
59 |
if ($v) = $volume =~ m[^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)]s and $directory =~ m[^[^\\/]]s |
|
301
|
2 |
57 |
if (not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)] and $file =~ m[[^\\/]]) |
|
306
|
2 |
0 |
$1 ? : |
|
325
|
34 |
47 |
if $is_abs == 2 |
|
327
|
33 |
14 |
if ($is_abs) |
|
333
|
5 |
9 |
if (not defined $base or $base eq '') { } |
|
|
0 |
9 |
elsif (not $self->file_name_is_absolute($base)) { } |
|
335
|
3 |
2 |
if defined &Cwd::getdcwd |
|
336
|
4 |
1 |
unless defined $base |
|
385
|
108 |
2 |
$2 ? : |
|
|
22 |
1 |
defined $2 ? : |
|
|
83 |
52 |
$first =~ s[ \A [\\/] ][]x ? : |
|
|
23 |
135 |
$first =~ s[ \A (?:\\\\|//) ([^\\/]+)
(?: [\\/] ([^\\/]+) )?
[\\/]? ][]sx ? : |
|
|
110 |
158 |
$first =~ s[ \A ([A-Za-z]:) ([\\/]?) ][]x ? : |
|
431
|
214 |
54 |
if ($volume =~ /\\\z/) |
|
439
|
7 |
207 |
if $path eq '' and $volume =~ /\A(\\\\.*)\\\z/s |
|
443
|
261 |
0 |
$path ne '' || $volume ? : |