| line |
true |
false |
branch |
|
200
|
1 |
94 |
unless @_ |
|
207
|
1 |
93 |
if ($args[0] eq '') { } |
|
|
14 |
79 |
elsif ($args[0] =~ /^[^:]+:/) { } |
|
216
|
0 |
14 |
unless $first_arg =~ /:\Z(?!\n)/ |
|
220
|
15 |
64 |
if ($args[0] =~ /^::+\Z(?!\n)/) { } |
|
|
35 |
29 |
elsif ($args[0] eq ':') { } |
|
228
|
28 |
1 |
unless $first_arg =~ /:\Z(?!\n)/ |
|
242
|
105 |
18 |
unless ($arg eq '' or $arg eq ':') |
|
243
|
24 |
81 |
if ($arg =~ /^::+\Z(?!\n)/) { } |
|
252
|
64 |
17 |
unless $arg =~ /:\Z(?!\n)/ |
|
258
|
23 |
71 |
if ($relative and not $result =~ /^:/) |
|
263
|
15 |
79 |
unless ($relative) |
|
316
|
1 |
11 |
unless @_ |
|
318
|
3 |
8 |
unless @_ |
|
361
|
0 |
0 |
unless $macfiles |
|
379
|
0 |
0 |
if defined $cached |
|
417
|
69 |
1 |
if ($file =~ /:/) { } |
|
|
1 |
0 |
elsif ($file eq '') { } |
|
440
|
0 |
0 |
unless exists $ENV{'Commands'} |
|
470
|
63 |
79 |
if ($nofile) { } |
|
484
|
0 |
142 |
unless defined $volume |
|
485
|
71 |
71 |
if $volume and $directory |
|
486
|
133 |
9 |
if ($directory) { } |
|
488
|
8 |
125 |
unless substr($directory, -1) eq ':' |
|
489
|
4 |
129 |
unless substr($directory, 0, 1) eq ':' |
|
493
|
63 |
79 |
unless defined $file |
|
539
|
4 |
50 |
if not defined $path or $path eq '' |
|
540
|
1 |
49 |
if $path eq ':' |
|
545
|
8 |
41 |
if ($volume) |
|
551
|
12 |
120 |
if (length $sep > 1) |
|
560
|
86 |
46 |
if ($directories) |
|
588
|
3 |
29 |
unless ($volume or $directory) |
|
589
|
2 |
1 |
if $file |
|
597
|
29 |
28 |
unless length $volume |
|
599
|
37 |
20 |
unless substr($path, -1) eq ':' |
|
601
|
53 |
4 |
if ($directory) |
|
602
|
27 |
26 |
if $volume |
|
605
|
3 |
50 |
unless substr($path, -1) eq ':' |
|
608
|
22 |
35 |
if ($file) |
|
666
|
0 |
21 |
unless ($self->file_name_is_absolute($path)) |
|
671
|
0 |
21 |
if (not defined $base or $base eq '') { } |
|
|
0 |
21 |
elsif (not $self->file_name_is_absolute($base)) { } |
|
686
|
3 |
18 |
unless lc $path_vol eq lc $base_vol |
|
737
|
7 |
13 |
unless ($self->file_name_is_absolute($path)) |
|
739
|
0 |
7 |
if (not defined $base or $base eq '') { } |
|
|
0 |
7 |
elsif (not $self->file_name_is_absolute($base)) { } |
|
755
|
0 |
7 |
if $path_dirs eq '' |