Branch Coverage

blib/lib/File/Spec/Mac.pm
Criterion Covered Total %
branch 79 92 85.8


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 ''