| blib/lib/FindBin/Parents.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 4 | 6 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 59 | 8 | 10 | 0 | $path2dirz{$path . $; . $assume_dir} ||= do { my $is_dir = $assume_dir || -d $path; my($vol, $dir) = splitpath($path, $is_dir); my(@dirz) = splitdir(rel2abs(canonpath($dir))); my $tmp = $dirz[0] ? "" : shift @dirz; [reverse(map({catpath($vol, $_, "");} map({$tmp = catdir($tmp, $_);} "", @dirz)))] } |
| 62 | 9 | 0 | 1 | $assume_dir || -d $path |