| line |
true |
false |
branch |
|
195
|
1 |
94 |
unless @_ |
|
202
|
1 |
93 |
if ($args[0] eq '') { } |
|
|
14 |
79 |
elsif ($args[0] =~ /^[^:]+:/) { } |
|
211
|
0 |
14 |
unless $first_arg =~ /:\Z(?!\n)/ |
|
215
|
15 |
64 |
if ($args[0] =~ /^::+\Z(?!\n)/) { } |
|
|
35 |
29 |
elsif ($args[0] eq ':') { } |
|
223
|
28 |
1 |
unless $first_arg =~ /:\Z(?!\n)/ |
|
237
|
105 |
18 |
unless ($arg eq '' or $arg eq ':') |
|
238
|
24 |
81 |
if ($arg =~ /^::+\Z(?!\n)/) { } |
|
247
|
64 |
17 |
unless $arg =~ /:\Z(?!\n)/ |
|
253
|
23 |
71 |
if ($relative and not $result =~ /^:/) |
|
258
|
15 |
79 |
unless ($relative) |
|
311
|
1 |
11 |
unless @_ |
|
313
|
3 |
8 |
unless @_ |
|
358
|
0 |
0 |
if defined $cached |
|
396
|
69 |
1 |
if ($file =~ /:/) { } |
|
|
1 |
0 |
elsif ($file eq '') { } |
|
419
|
0 |
0 |
unless exists $ENV{'Commands'} |
|
449
|
63 |
79 |
if ($nofile) { } |
|
463
|
0 |
142 |
unless defined $volume |
|
464
|
71 |
71 |
if $volume and $directory |
|
465
|
133 |
9 |
if ($directory) { } |
|
467
|
8 |
125 |
unless substr($directory, -1) eq ':' |
|
468
|
4 |
129 |
unless substr($directory, 0, 1) eq ':' |
|
472
|
63 |
79 |
unless defined $file |
|
518
|
4 |
50 |
if not defined $path or $path eq '' |
|
519
|
1 |
49 |
if $path eq ':' |
|
524
|
8 |
41 |
if ($volume) |
|
530
|
12 |
120 |
if (length $sep > 1) |
|
539
|
86 |
46 |
if ($directories) |
|
567
|
3 |
29 |
unless ($volume or $directory) |
|
568
|
2 |
1 |
if $file |
|
576
|
29 |
28 |
unless length $volume |
|
578
|
37 |
20 |
unless substr($path, -1) eq ':' |
|
580
|
53 |
4 |
if ($directory) |
|
581
|
27 |
26 |
if $volume |
|
584
|
3 |
50 |
unless substr($path, -1) eq ':' |
|
587
|
22 |
35 |
if ($file) |
|
645
|
0 |
21 |
unless ($self->file_name_is_absolute($path)) |
|
650
|
0 |
21 |
if (not defined $base or $base eq '') { } |
|
|
0 |
21 |
elsif (not $self->file_name_is_absolute($base)) { } |
|
665
|
3 |
18 |
unless lc $path_vol eq lc $base_vol |
|
716
|
7 |
13 |
unless ($self->file_name_is_absolute($path)) |
|
718
|
0 |
7 |
if (not defined $base or $base eq '') { } |
|
|
0 |
7 |
elsif (not $self->file_name_is_absolute($base)) { } |
|
734
|
0 |
7 |
if $path_dirs eq '' |